/ 



LABEL OOOOOOOOOLINE 001780ft5CC EX O/R; COMMON* 1 ) FILE SsPATCHES/TSSMCPJ FI LE LlNE*LlNE PRINTING* /R 

FjLEJ PATCHES/TSSMCP MONDAY 03/06/78 04»06 PM 

S# PATCH NUMBER 101 FOR TSSmCP CONTAINS 001 CARDS. 

BEGIN OSi = 16 LIT"-SYSTEM HANG» F = m ; 00652400 

si by ddd 

$8 7/16/74 
St TR .... 

$t this patch Reformats the "System hang" message, 

$t********************+********************************************************* 
$#PATCH NUMBER 102 for tssmcp contains 010 CARDS 00000000 

SVOIDT 14218081 14218071 

if aitcaitc0]3,c8j10j neq 1 then 14218072 

begin 14218074 

l!«lj 14218076 

WHILf AITCI3. [81103 = 1 DC ltsl+i; 14218078 

FOR jiaAITtO] STEP -1 UNTIL I 00 14218080 

AIT[J*1]I«AITCJ]; 14218082 

END Ei.SE II«AIT[0J + 1J 14218084 

AiTt01t=*p(DUP) + i; 14218086 

AlTCI] j»-(UH8i3flil03tMCc3tFTF3)J 14218088 

St THIS CHANGE CORRECTS AN tRRnR IN THE H A NDLlNG OF C0B0L68 90000000 

StOPEN STATEMENTS THAT OCCUP Im THE INPUT OR OUT p UT PROCEDURE 90000005 

SlO F A SORT. THE FILES WILL NOW BE LEfT OPEN AS THEY SHOULD. 90000010 

St***************** ************************************************************* 

StfPATCH NUMBER j03 FOR TSSMfP CONTAINS l CARDS, 

IF P OR I THEN 38608920 

S| THIS PATCH CORRECTS AN ERROR IN THE MCP PROCEDURE BACKCLOSE 
St THAT WOULD SOMETIMES CAUSE "PUD" FILES NOT TO BE PUNCHED EVEN WITH 
St THE OPTION AUTOPRNT SET. 

St****************************************************************************** 
SCRATCH NUMBER j04 FOR TSSMrP rONTAINS 1 CARD 

ScHEDL00KfKTR,TYPF»7) X fS = 6> XS*7 16651000 

St FIXES THE SCHEDULE LINE "XS» KEYIN 

SI****************************************************************************** 
SKfPATCH NUMBER i05 FQR TSSMrP CONTAINS 2 CARDS 

IF (Tl «. PSeUDOmIXtPIMIXJ) * THEN 39092165 

IF PACKETPAGECT1 - 323 X THEN 39092167 

St BY KEN KOVACS 
St DATA 4/?2/74 

St THIS PATCH CORRECTS AN InVA L ID INDEX In CONTROL STATE. 

St ****************** ************************************************************ 
SfPATCH NUMBER l06 FOR TSSMCP CONTAINS 8 CARDS, 

$ VOIDT 07118401 07H8100 

IF PACKETCARD s 5 THEN 07118500 

IF PtYPE * 3 AND NOT CONTINUE AND NOT ADEC* THEN 07139520 

IF PKTONLY THEN 20602515 

S SET OMIT a NOT(PACKETS) 20609425 

IF PSEUDOCUNITNO-323 a THEN 20609430 

PRInTTHECOVeR(CaRDlOC»UnITNO#PSOURCE>J 20609435 

S POP OMIT 20609440 

St BY KFK 
St DATE 02/20/75 
St MSA CENTRAL - DETROIT 

St THIS PATCH WILL ALLOW PACKETS AND DECKS TO BE MIXED. ALSO IF THE 
St SPO OPTION "PKTONLY" IS SET THEN ALL DECKS WILL BE USED AS IF THEY 



si were packets, that is the use or pktonly is now changed so that 

St IT NO LONGER CONTROLS THE LOADING OF OECKS BljT TO CONTROL OF THEIR 
St USE. 

St****************************************************************************** 
t#PATCH NUMBER 107 FOR TSSMcP CONTAINS 1 CARDS. 

HEADER[4]»*0»(Pl00l)r2J38 l l0]&SYSN0C4U6l2]; 202891 15 

$« BY KK 

Si DATE 8/7/74 

Si THIS PATCH WILL CORRECT A CONDITION THAT COULD MARK THE PACKET 

$1 PAGE AS BEING IN USE BY T H E WRONG SYSTEM AFTER A HALT/LOAD. 

St********* ***************************************************** **************** 

S# PATCH NUMBER 108 FOR TSSMCp CONTAINS 001 CARD. 

IF P?>0 tHEn M0VE(15,P2>t+4) ELSE MCt+«1*P2; 03120000 

St BY DDD 
$1 DATE 8/?9/74 

$1 THIS PATCH ALLOWS ERROR MESSAGES LONGER THAN 60 CHARACTERS 
St TO BE PRINTED CORRECTLY ON A REMOTE TERMINAL THROUGH CAnDE. 
$ I ********************** ************************************************ 
S#PATCH NUMBER 109 FOR TSSMcP CONTAINS 1 CARD. 

IF LOGLlNE * THEN LOGLINE ♦• - UNITNO; 206Q2502 

** BY DDD 
SI DATE 9/19/74 

S| THIS PATCH REPLACES A LINE OF CODE THAT WAS INADVERTENTLY 
Si LEFT OUT IN THE XV. 3 RELFASr. WITHOUT THIS PATCH* ESPDISK 
Si Is NOT HANDLED CORRECTLY, ImCORRECT LOG ENTRIES ARE MADE, 
SI AND SYSTEM HaLTS CAN OCCUR. 

Si********************************************************************** 
$*PaTCH NUMBER HO FOR TSSMCP CONTAINS 1 CARDS. 

FIB[163.[CF]I=0;% 41204000 

S« BY KK 

SI DATE 10/22/74 
$1 THIS PATCH CORRECTS THE TSSMCP"S HANDLING OF TAPE FILES 

$i Closed with the "closec<fIleid>»*)" syntax, the tssmcp 

St WOULD "FORGET" THAT THE I AST I/O DONE ON THIS FIlE WaS a 

SI REVERSE I/O BY ZEROING FlB[l61> THUS WHEN THE FILE IS 

Si OPENED AGAIN THE TSSmCP WOULD SPACECFORWARD ) OVER 

$1 THE NEXT FILE' AND THE FILE THAT WAS JUST CLOSED WOULD BE 

SI ACCESSED AGAIN, 

St****************************************************************************** 

S* PATCH NUMBER 111 FOR TSSmCP CONTAINS 1 CARDS, 

S VOIDT 06098201 06097600 

St BY KK 

$t DATE 11/ 3/74 

$1 THIS PATCH WILL ALLOW A DISK SQUASH TO BO STOPPED ONLY AFTER IT 

St HAS FINISHED MOVING a FI L E. IF STOPPED SOONER THEN tHE AVAILABLE 

St DISK TABLE COULD BE DAMMaGEo. 

S J ****************************************************************************** 

S# PATCH NUMBER 112 FOR TSSMCP CONTAINS 1 CARDS. 

RRRMECH «• NOT TWOCU) AND RRRMECHJ X LET STATUS FIND IT 04383900 

SI BY KK 

St DATE 11/ 4/74 

S| THIS PATCH CORRECTS A PROBLEM WITH UNITS GOING NOT READY 
St AND THEN NOT BEING PICKED Up AS BEING READY WHEN THEY GO REAqY 
St****************************************************************************** 
S#PATCH NUMBER 113 FOR TSSMCP CONTAINS 5 CARDS 

XI CLKtO] 1= 03067500 

S SET OMIT * NOT(NEWLOGGING) 03067600 



if logstoppedcpimix] then proctimecpimix] else 03067700 

$ POP OMIT 03067800 

PR0CTIMECP1MIX1 + ClOCk + P(RTR)> 03067900 

Si BY KFK 
$1 DATE 11/27/74 

$1 THIS PATCH CORRECTS A CONDITION THAT CAUSED THE LOG OFF MESSAGE To 
St CONTAIN ERRONEOUS DATE. AS A RESULT OF THE NEW MCP COMPILE TIME 
SI OPTION "NEWLOGGING" T HE VALUE OF PROCT IMECP lM IX J IS CHANGED TO 

$t Indicate if the program qhould be charged fop cpu time or not. 

Sl THIS WAS NOT TAKES INTO CONSIDERATION WHEN C0MM2 PASSED THE VALUE 
S» TO BE USED AS "CLOCK" By CAnDE, 

$ I ****************************************************************************** 

S#PATCH NUMBER 1 14 FOR TSSMcP CONTAINS 2 CARDS 

S VOID 37284150 

IF U < 16 THEN FPBrFN + 3],C6ll7]«.PRNTABLECU].[3lU7j; 37285410 
BY KFK 

11/27/74 




SI BY KFK 

St DATE 11/27/74 

$1 IF THE REEL IS GIvEN ON A F ILEC EQUAT ION ) cONTrOL CARD IT WILL 

S| NOT BE USED BY THE McP WHEN IT LOOKS FOR A TA^E FILE AT FILE 

SI OPEN TIME. THIS IS rECaDSE THE REEL NUMbER IS MOVED FROM THE 

S| FTB. NOn THE REEL NijMBER Is °NLY MOvED FROM THE FIB IF IT IS 

Sl NONZERO 

$1****************************************************************************** 

S#PATCH NUMBER JJ6 FOR TSSMCP COBTAINS \ CARDS 

S VOIDT 38024081 38024010 

SI BY KFK 

SI DATE 12/23/74 

Sl IF A PROGRAM READS A fllSK FILE THAT HAS A ROW SIZE THAT Is LESS 

Sl THAN THE PROGRAMS BUFFER SIZE* THE MCP WILL Q^LY GET A CORE 

Sl BUFFER THE SIZE OF THE DISK FlLE"S ROW. BUT ANY PROGRAM THAT 

St USES THE BUFFER WITHOUT QOInG THUR THE InTRInSICS WILL NOT 

si know that the buffer size h a s been changed; therefore* an Invalid 

St LINK MAY OCCURE IF OnE TRIEs TO USE THE PART OF THE BUFFER THAT 

Sl IS NOT THERE. 

S I ****************************************************************************** 

S#PATCH NUMBER 117 FOR TSSMCP CONTAINS 2 CARDS 

IFCNBCFIAND F0URMASK).UI35]*0 THEN GO CLOSEITJ 06058630 

IF(NB[F+5]AnD NINEMASK).C1I28]X0 THEN 06058640 

SI BY DDD 

St DATE 12/27/74 

SI THIS PATCH CORRECTS A pROflLEM THaT WOULD Ca^SE SOME FILES TO 

Sl BE MARKED IN USE AFTER A HAlT/LOAO ON A SHAREOISK SYSTEM. 

S | ****************************************************** ************************ 

S#PATCH NUMBER 1 1 8 FOR TSSMcP CONTAINS 1 CARD 



IF COUNT <0 THEN GO To START; 
*|By DDD 
$12/5/75 

SlSOFTWARE FLASH NUMBER 68 

StlF TWO LIBMAIN/DISKS A RE BOTH WAl flNG FOR THE SAME TAPE TO BECOME 
SlREADY, ONE COPY WILL BE ASSIGNED THE CORRECT TAPE AND THE OTHER 
SlCQPY OF LlBMAIN WILL BE ASSIGNED TO MTA, 

SI ****************************************** *************************** 
S#PATCH NUMBER t 19 FOR TSSMCP CONTAINS 34 CARDS. 
REAL BVD,UBLKSZ,SPB; 

BCL«»CMCCT?"SPACE(4l)]]441t8i38»10]| 
IF HDRTYPE NEQ 3 
THEN FOR NTUalS ST^P 1 UNTIL 
ELSE FOR NT1! B 20 STEP 1 UNTIL 
BCL[NTl-10]i«HrNTl3; 
UBLKSZ«=NT2; 

IF CNT4>-HC23«C5I3] = 2) THEN 
BCLrO]ls(SPB«=NT2 OlV 30 ♦ CNT2 MOO 30 NEQ 



37240050 



NT2 DO 8CLCNT1 
NT2+5 DO 



•5]l»HtNTn 



% DECIMAL (4-BIT) 
0)H % SEGMTS/BLOCK 

NT1C1I34IU3I % WOROS/RECORD 

GEQ 2 TH r N % FIGURE OUT EOF USING B6700 FORMULA 



4 db; 

SKIP 1 



IF HDRTYPE 
BEGIN 
STREAM(6lsO I WSSHC14])* 
BEGIN SIj*LOC w; Oil* LOG B; DU=Dl + 4; SKIP 

20cif sb then nSt s sET else dsjsreseT; 
end; 

BVDjsP; X BITS OF VALID nATA IN LAST SEGMT 
IF HC21.C8I1] 
THEN IF (nT2IbHC2J.[5i3])»2 

then begin nTi»w12; nt4i*3; end 

ELSF IF NT2s4 

then begin nt1«=6; nt4»=7; 
Else begin nti«*s; nt4«»s; 
else begin nti: = u nt4i"«7; end; 

NT2*»((HCU3.C20l2B] MOD $P8)><NTlx30) 
+CCBVD + NT4) DIV (4s DIV NT1 ) ) * 
NT1*=IF NTp LSS UPlKSZ ThfN NT2 ELSE UBLKSZ* 
NT2!rNTl+(Htl4],t20«28i DTV 

end; 

BCLt7]JsIF HDRTYPE GEQ 2 THEN 

FLSE 
SVOIDT 

H«*CM[SPACE(42)]]«30t8l38«i0]; 
H«=H«4lC8l38tlO]i 
SlTSSMCP* 4208 

*' B6700 TAPFS WITH NEW HEADERS 

SlTHIS CHANGE A L LOWS THf B570o L j B r ARY MAINTENANCE 
*|EROM TAPES WHICH HAVE BEEN CREATED ON A B6700 
SlFORMATS OF TYPE 2 AND 3. 
SK PRI 4208 ) 

$#PATCH NUMBER 121 FOR TSSMCP CONTAINS 11 CARDS. 
SVOlDT 

optnjsCn; PR0GC29]ian; 
diulqc a; siiaLOC h; skip i db; dsjsSetj 

* SET OMIT * NOT B650C-L0AD 

IF B6500 AND (NOT OCSTlN, C 1 1 1] ) THEN 
BEGIN STREAM(TMPt«TMP«*sPACEClO)); 

DSI*32LIT ,, #B6700 TAPE TO TAPE NOT ALLOWED*"* 



SB) 



END 
END 



SPB)xNT3xCNT4t B H[3] t [32* 16]); 

(NT2+NT4-1) QlV N T4 - 1 
HC43; 



TO 
WITH 



LOAD 
NEW 



FI L ES 
HEADER 



27990410 

27993900 

27994200 

27994210 

27994220 

27994230 

27995310 

27995600 

27996300 

27996505 

27996510 

27996515 

27996520 

27996525 

27996530 

27996535 

27996540 

27996545 

27996550 

27996555 

27996560 

27996565 

27996570 

27996575 

27996580 

27996585 

27996590 

27996595 

27996600 
27996605 
27996610 
27996800 
28070000 
28274200 



20566800 
20566817 
27996675 
28475605 
28475610 

28475620 
28475630 



S POP 
SlTSSM 
St 

StTHIS 
*t At 
S» B# 
St 

St c. 

St 

St 
St 

St 

StWARN 

St 

St 

St 

$t( PR 

S#PATC 



BY 

DAT 

MSA 



SI 
St 
St 
St 

St IT 
st **** 
SiPATC 



spoutctm 
abort; 

end; 

omit 

CP* 4211>* 

LI 

change perform 
corrects mis 

MAKES HEADER 

TYPE HEADERS 

DISALLOWS TR 

BECAUSE OF P 

B6700 HEADER 

WITH THE FOL 

••#86700 TAPE 

iNGf IN THE "CO 

OUTPUT UNl 

THAT <MFID 

FOLLOWING 

I 4211 ) 

H NUMBER 122 pO 

CNTt S 

KFK 

E 2/2P/75 

CENTRAL - DETR 
THIS PATCH WILL 
IS NOW OK TO HA 
*************** 
H NUMBER 123 FQ 
STREAMCAtaT 
Dt»[ 
BEGIN 
SIl*LOC 
IF SB TH 
BEGIN 
SKIP 
IF SB 
ELSE 
BE 
SK 
IF 
EL 



P); 



BRARY 
S THE 
HANDLI 
S CREA 

AmD 
ANSFER 
OSSIBL 
. ATTE 
LOWING 

TO TA 
PY" CO 
T MAY 
> IS A 
THf wo 

R TSSM 
II.SI+ 



28475640 
28475650 
28475660 
28475665 



M A I N T 
FOLLO 

nG nF 

TED F 

s frq 

f bad 
mpts 

MESS 
PE no 

NTROL 

BE CO 

NUMB 

RD "C 



. CORRECTIONS 
WING! 

ESPOISK SEGMENTS DURING ABORT* 
ROM COPYING B6700 TAPE FILES 



"NEW" 



CP 

i; 



CO 
Bl 



M B6700 SOURCE TAPES DIRECT TO TAPE 
SEGMENTS PER ROW INFORMATION IN THE 

AT SUCH TRANSFERS WILL CAUSE ABORTION 

AGE •' 

T ALLOWED", 
CARD* THE MAXIMUM NUMBER OF FILES PER 

NFUSEO WITH THE <MFI0> OF A FILE IF 

ER; I.E. THE <MFlD> OF THE FIRST FILE 

OPY" MAY NOT BE A NuMBER. 

NTAINS 1 CARDS, 

=Si; IF SC=" " THEN GO TO CNT ;T ALLY I «0; 08291125 



OIT 

allow 

VE SPA 
****** 
R TSSM 
OHLD#B 
CMMt27 



FOR 
CES A 

***** 
CP CO 
!*TnH 
33); 



BETTER SCANNING OF T H E PB KEYlN. 
FTER A "#" OR ,, * M . 

************************************** 
NTAINS 27 CARDS. 
LD.t42»63-i,Ci"T0HLD.t42»63><0» 



L* 



SI BY KFK 



EN 
END 
ELSE 

BEGIN 

SKIP 

DSi=L 

end; 

END' 



a; skip Sr; 

EN 

39 sb; 

THEN nS»a8 LIT"0FAST 
GlM 

IP sb; 

SB THFN DSt=8 LlT"OSLOW 
SE 
BFGIN 
CfSltaLOC 
0S«s6 LIT" 

jump gut t 

DS»»8 LIT" 
END 
D 



b; 

oeu # ••; DSta2 dec; 

o d; 

ODISK ••; 



5 sb; 
iT«o"; 



DSts7 chr; 



********** 

20571700 
20571702 
205H710 
20571720 
20571730 
20571740 
20571750 
20571760 
20571770 
20571780 
20571782 
20571790 
20571800 
20571810 
20571820 
20571830 
20571840 
20571842 
20571850 
20571860 
20571870 
20571880 
20571890 
20571900 
20571910 
20571920 
20571930 



$1 DATE 3/18/75 

St MSA CENTRAL - DETROIT 

St THIS PATCH WILL P|_ACE THr OUTPUT UNIT NAME OF A LIBRARY COPY 

St IN WORD 27 OF THf SHfET SO THAT WHEN A TS IS DONE THIS NAME WILL 

$J BE LISTED ON THE OUTPUT MESSAGE. 

$t ****************************************************************************** 

S#PATCH NUMBER 124 FOR TSSMCP CONTAINS 2 CARDS. 

IF KlNDs7 THFN FPBCFNUM+3]*(*P(DUP))&T2C15»15I8] 38228510 
&0C6I39I9]; 38228520 

$» BY KFK 
St 5/7/75 

St MSA CENTRAL - OEtROTt 

St WHEN USING A MULTT-FILF. PRT THE SECOND AND FOLLOWING FILES WILL 
St SOMETIMES BE PRINTED SEVERAL TIMES. THIS WAS CAUSED BY A CONFLICT 
St In THE USE OF A FIELO IN THE FPB OF A PROGRAM. THE SAME FIELD 
St THAT IS USED TO HOLD THE NUMBER OF COPIES (FROM A FIlE EQUATE) 
St IS ALSO USED TO HOLD THE PRn OF THE TAPE. 

St****************************************************************************** 
S#PATCH NUMBER 126 FOR TSSMCP CONTAINS 1 CARD. 

PROCVAL«=0; 20602860 

St BY KFK 
S« DATE 04/05/75 
$» MSA CENTRAL - DETROIT 
S» 
St 
St 
St 
St 

St 

S#PATCH NUMBER 127 FOR TSSMCP CONTAINS 3 CARDS. 

IF (TlaSCAN) ■ ENDFI THEN 20608740 

GO TO pACK2J 20608760 

$ VOIDT 20608800 

SI BY KFK 

$1 DATE 04/08/75 

St MSA CENTRAL - DETROIT 

St THIS PATCH WILL CnRRECT THE WAY CONTROL CARD HANDLES PACKET 

$1 ERRORS. WITHOUT THIs PATCH THE PACKET WILL ONLY BE FLUSHED 

*t to the n ext end or wait card not to just the End card. 

St****************************************************************************** 

$#PATGH NUMBER 128 FOR tSSmCP CONTAINS 3 CARDS. 

IF OU GEQ THEN % WE HAVE AN OUTPUT UNIT 28304590 

IF IU GEQ THEN % WE HAVE AN INPUT UNIT 28304700 

IF OU GEQ THEN X WE HAVE AN OUTPUT UNIT 28306500 

SI BY KFK 

St DATE 04/10/75 

St MSA CENTRAL - 

$t this patch 

THERE WAS 




SHEATC24]:«MCP; 07262100 

SHEATr24)!=McP; 08276365 

HEADER[2 3l«HEADERC5l»«MCPj 20289113 

SIS*CARD; 0Sj=9 WOS; 20289240 

MCBUF+87JI.MCP; 20289252 

SHEATt2«35sMCPj 22069212 
St BY KFK 
$« DATE 04/12/75 
St MSA CENTRAL - DETROIT 

si this patch will cause prmpbt/disk and auto-ldcntrl 
Si to be executed with t he MCP"S usercode, this information 
si is placeo into the log file! also with this Patch 

St PACKET PAGES WILL BE GIVEN T HE MCP"S USER CODE NOT 
$1 THE USER CODE "PACKET". 

$1****************************************************************************** 
$#PATCH NUMBER 131 FOR TSSMCP CONTAINS 2 CARDS. 

USERSJ IF(T1*SCAN)/EQUA, THEN 60 INCSC; 20605700 

IFCT«*SCAN)*PERI0 THEN GO INCSC; 20605702 

$1 BY KFK 
$1 DATE 04/10/75 

$J MSA CENTRAL - DETROIT 

Si THIS PATCH WILL GIVE A CONTROL CAHD ERROR IF 

$1 EATHER THE EQUAL SIGnj OR USER CODE IS MISSING ON A 

$1 USER CONTROL CARD. 

$1*************************************** *************************************** 

$#PATCH NUMBER 132 FOR TSSMCP CONTAINS 1 CArD, 

IF FAST. GTR THEN L I BRARYHELPC 5 ) ELSE I U I *0U : s(FPBPTR t*0 )-l ; 28246200 
$t BY KFK 
SI DATE 04/10/75 
St MSA CENTRAL - DETROIT 

Si 
Si 

si . . w . . _ ... _ „ 

Sj ALSO CrjRE SPACE FOR THE BUFFERS IS NOT OBTAINED UNLESS THERE ARE 
St SOME FIlES TQ BE COPIED. 
$1****************************************************************************** 
S#PATCH NUMBER 133 FOR tSSmCP CONTAINS 1 CARD, 

DS»*8LIT"lx0x4000 M ; DS t =8LlT M 0PACKET"; 07418700 
$1 BY KFK 
$1 DATE 04/12/75 
Si MSA CENTRAL - OETRQIT 

$l WITH SOME SYSTEMS THE FIRST I/O DONE TO A PRINTER FOR 
Si THE PACKET PAGE WILL CAUSE THE PRINTER TO HANG UP FOR 
SI EXTENDED PERIOD OF TIME. THIS WAS CAUSED BY QOInG AN 
Si INVALID PRINTER OPERATION!. THAT IS NO PRINTING AND NO 
SI PAPER MOVEMENT, 

Si THIS I/O RESULTED WHEN THE MCP CHANGED THE I/O 
St DESCRIPTOR FqR THE ABORTED lINE SO THAT THIS LINE WOULD 
St NOT BE PRINTED. 

Si NOW A SINGLE SPACE IS GENERATED, 
St THE MCP WOULD RECOVER FROM THIS CONDITION 
St AFTER ABOUT 20 SECONDS, 

$1****************************************************************************** 
S#PATCH NUMBER 134 FOR TSSmCP CONTAINS 1 CARD, 

ELSE IF Uslp THEN PC nl RECTORYSEARCHC -MFID#FI0* 1 3)*DEL ) ; 28446300 
SI BY SR 
St DATE 04/03/75 




$t THIS PATCH CAUSES HFADER SPACE FOR DUPLICATE DISK FILES TO BE 

$! FORGOTTEN, PREVIOUSLY, IF THE LIBRARY MAINTENANCE TASK INVOLVED 

$1 MANY DUPLICATIONS, THE HEADER SPACE OF EACH DUPLICATE FILE WAS 

t» LEFT IN CORE EVENTUALLY RESULTING IN A «NO-mEm m CONDITION ON 

tt MIX ZERO, 

$1****************************************************************************** 

S#PATCH NUMBER 135 FOR TSSMCP CONTAINS 1 CARD. 

MQVEU0,B,Tl+2); 41323150 

$! BY KFK 
$« DATE 04/22/75 

$! THIS PATCH CORRECTS A CONDITION THAT WOULD CAUSE AN INVALID 
$1 ADDRESS ON A HALT LOAD IF MEMORY MOD ONE IS OFF ilHZ, 

St****************************************************************************** 
$#PATCH NUMBER 136 FOR TSSmCP CONTAINS 25 CARDS, 

LABEL PE»TE#P A ; 18701010 

switch si«pa,pe,te»it,us,d»td#pr*iot>tmr,aD,wd; 187oiioo 

CI' IF (I4««ia) GES (-5) AND i4 LEQ 6 THEN 18710100 

BEGIN GO TO 5CM + 53J 18710200 

PA' 18710240 

* SET OMIT * NOT(PACKETS) 18710242 

IF U«*PSEUOOMIX[P1MIX]) GEO 32 THEN 18710244 

Ift«»PACKETACTtI-32] * 18710246 

* POP OMIT 18710248 

GO TO INITIATE; 18710249 

PE» 18710250 

$ SET OMIT a NOTCPACKETS) 18710252 

IF Cl»«PSEUDnMIXCPlMlXJ) GEQ 32 THEN 18710254 

BEGIN 18710256 

I<i«»PACKEtERR[I-^2]; 18710258 

PaCKETERReI-32]«*TRUE; 18710260 

END; 18710262 

* POP OMIT 18710264 

GO TO INITIATE; 18710266 

TE' 18710268 

S SET OMIT * NOT(PACKETS) 18710270 

IF <I'»PSEUDoMIX[PlMlX]) GEQ 3 2 THEN 18710272 

U»*PACKETERR[I-32i; 18710274 

$ POP OMIT 18710276 

GO TO INITIA T E; 18710278 

BY KFK 

OATE 04/22/75 
MSA CENTRAL - DETROIT 

THIS PATCH ADDS THREE NEw TIME FUNCTIONS! 

1) TlMEC-3)f WILL RETURN THE CURRENT STATUS OF THE PACKETERR BIT 

2) TlMEC-4), THIS PljNCTlQN WILL SET THE PACKETERR BIT 

3) TlMEC-5), WILL RETURN THE CURRENT VALUE OF PACKETACT. 
THESE THREE FUNCTIONS WERE ADDED TO GIVE A PROGRAM SOME CONTROL 

OVER THE PACKET. NOW A PROGRAM CAN -KILL" A PACKET BY A TIME 
FUNCTION RATHER THAN BY qS-ING ITSELF WITH A RUN TIME ERRORCDlV 
BY ZERO* ETC). ALSO A PROGRAM -CAN "SEE" IF A SISTER PROGRAM 
HAS RUN INTO TROUBLE. AnO A PROGRAM CAN TELL HOW MANY JOBS ARE 
RUNNING FROM THE PACKET AT THIS TIME. 

TIMEC-4) WILL RETURN THE VALUE OF PACKETERR BEFORE IT SETS IT, 



EXAMPLES! (ALGOL) 

IF A LSS THEN % WE HAVE A PROBLEM 



$1 BEGIN X LETS KILL THIS RyN 

SI B»*TIMF<-4>; % KILL PACKET 
$1 GO TO EXIT; * EXIT PROGRAM 

$t end; % 

Si 

Si and in a program run from the same packet at the same time 

St 

St IF BOOLEANCTIMEC-3)) THEN GO TO EXIT; % ERROR IN OTHER PROGRAM. 

St 

St IF THE FIRST PROGRAM FINDS A PROBLEM AND WANTS TO STOP THIS RUN IT 

Si SETS THE PACKETERR BtT ThEN THE SECOND PROGRAM WILL "SEE" THIS 

St AND ALSO GO TO EOJ. 

St****************************************************************************** 

SmPATCH NUMBER 138 FOR TSSMCP CONTAINS 3 CARDS, 

IF ZIPMIX NEQ THFN 20608112 

IF (TtaPSEUDOMTXCZlPMTX]) GEO 32 THEN 20608114 

PACKETERRCT-32]5*TRUE; 20608116 

St BY KFK 

St DATE 04/23/75 

SI MSA CENTRAL - DETROIT 

St THIS PATCH WI|_L SET THE pACKETERR BIT IF T H ERE 

St IS A ZIP ERROR IN THf PACKET. 
$t****************************************************************************** 

S*PATCH NUMBER 140 FOR TSSMCP CONTAINS 22 CaRDS. 

BfGIN T*(A INK 0540000000000000)41^81 381 lO]j 02287240 

IF SEPARATf THEN T>T*CLUN*22) [32*47 t 1 ) 02287245 

ELSf T«-Tt(LUN^22)t28l47tl3; 02287250 

S VOIDT 12727501 12726500 

S V 0ID T 12739501 l?!??!!!! 

IF KlND*l THfN MCALpHA-2]«-p(DuP»L0D) 4 38280500 

(IF SEPARATE THEN 1 ELSE ?2° ) C27 t 42 t6] 38280600 

ELSE 38280700 

IF NOT SEPARATE THEN 38281600 

IF (TYPE<20) THEN 38281700 

HEADER[73J«<PCDUP>L°D)4C02O)C27I42I6]; 38281800 

M[ALPHA]«.(*PCDUP))&(P6®000HCTF]; 38590000 

IF TYPE<20 THEN 38590100 

MCALPHA1*(*P(D|)P))«(IF SEPARATE THEN 1 ELSE P2oH27 142 1 6 ] ; 38590200 

IF NOT SEPARATE THfN MC ALPHA]«-( *P( DyP ) )4l C27 t 42 t 6 ] ; 38592100 

END; 38594000 

IF NOT S E PARATE ThEN MCA L PHA]«-P(DUP,lQD)&lC27t42t6]; 38594100 

MCALPHA1.C20I134-1) 38594200 

IF FlBtl4jttFF])TTBtl43.rcr3 THEN 38594300 

IF SEPARATE THEN PC WAIT I 0(^4000100000, 0,U )' DEL > 38741000 

ELSE PCWAlTIO(e4002000000*0'U)'DEL>; 38741100 

IF NOT SEPARATE THEN P (W A I T 10 (04000100000, 0, U ), DEL >; 38742100 

Si BY KFK 

« DATE 5/7/75 

I MSA CENTRAL - DETROIT 

t THIS PATCH CHANGES THE UsE QF THE SPQ OPTION "SEPARATE". IT NOW 
I IS USED TO CONTROL THE PRINTER SPACEING AROUnD THE LABlE PAGE. 
I THAT IS IF SEPARATE IS RESET THEN 0NL* A DOUBLE SPACE IS DONE 
I AFTER THE BEGlNlNG LABEL AND BEFORE T H E ENDlN G LABEL. IE IT IS 
I SET THE OPERATION OP THE PRINTER IS AS IT WAs BEFORF.( A FULL 

I PAGE FOR THE LABEL RECORD). 

I THIS WAS DONE TO HELP WItH THE ENERGY CRUNCH AND PER CUBE REQUEST, 

#PATCH NUMBER i4l FOR TSSMCP CONTAINS 452 CARDS. 00000000 
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LS: IF SC i W " H THEN IF SC X LEFTARROW THEN 

BEGIN SI »* SI + i; qQ TO LS; END; 
IF SC e LEFTARROW THEN GO TO EXIT; 
VQIOT 08135001 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

PRINtDIRECTORY 



purpose* this procedure handles the pd» ex, lf* lc and ls 
messages, all messages are forms of the pd message 
Except for certain differences, the pd message will 
list the names or the desired files as well as 
certain pieces nF information if requested. 

SYNTAX* THE FOrMAT Of ALL THE KEYlN MESSAGES WITH THE 
EXCEPTION Of THE LF MESSAGE IS AS FOLLOWS! 

<MESSAGE> <FlLE SPfCIFIER> <OPTlON«L IST> 

<MESSAGE> ««* Pn / EX / LC / LS 

<FILE SPECIFIER> ** = <FILENAM£> / <FILEnaME> "/" 
<FILEN A ME> 

<OPtION-LISt > »» s <EMPTY> / <OPtION> / <OPTlON> , 

<option-list> 

<0PTI0N> I*. RECS / LAST / DATE / SaVE / SIZE / 
CREATOR / SECURITY / ALL 

<FILENAME> U» [FROM 1 TO 7 CHARACTERS OPTIONALLY 
ENCLOSED IN QUOTES] / = 

THE SYNTAX FOR THE LP MESSAGE ISt 

LF <USERID> <OPTION-LIST> 

SEMANTICS* THE EX, LF, LC, AND LS MESSAGES ARE JUST 
MODIFIED FORMS OF THE PD MESSAGE. THE EX MESSAGE IS 

THE same as a pd except that only the expired FILES 
are listed. the lf is the same as a pd»/« except 
That only the files belonging to ThE specified user 
are listed. the l c message is the same as a "pd 

<FIlE SPECIFIER> CREATOR". THE LS MESSAGE IS THE 
SAME AS "PD <FILE SPECIFIER> SECURlTY#CREAToR M . 

THE OPTIONS SPECIFY WHAT ADDITIONAL INFORMATION 
IS TO BE LISTED BESIDES THE DEFAULT INFORMATION. IF 
AN UNRECOGNIZABLE WORD IS eNC0UNTe*E d IN THE OPTION 
LIST, IT IS IGNORED. THE AVAILABLE OPTIONS AREl 

RECS - NUMBER OF RfCORDS IN THE FlLEt (SPECIAL LOGIC 
IS INCORPORATFD TO THE LIST THE CORRECT NUMBER 
FOR BACKUP FILES). 



02615100 

02615200 
02615300 

08095000 
XXXXXXXX08095050 
******#X08095100 
*X08095150 
*X08095200 
*X08095250 
♦X08095300 
*X08095350 
*X08095400 
*X08095450 
♦X08095500 
*X08095550 
*X08095600 
*X08095650 
*X08095700 
*X08095750 
*X0B095800 
*X08095850 
*X08095900 
♦X08095950 
*X08096000 
*X08096050 
*X08096100 
*X08096150 
*X08096200 
*X08096250 
*X08096300 
*X08096350 

*X08096400 
•X08096450 
*X08096500 
*X08096550 
*X08096600 
*X08096650 
*X08096700 
*X08096750 
*X08096800 
*X08096850 
*X08096900 
*X08096950 
*X08097000 
*X08097050 
*X08097l00 
*X08097150 
*X08097200 
*X08097250 
*X08097300 
♦X08097350 
*XO8097aO0 
♦X08097450 
*X08097500 
♦X08097550 
*X08097600 
*X08097650 



X* 

X* 
X* 

%* 

X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X* 
X****** 

xxxxxxx 

PROCEDU 

Value 

REAL 
BEGIN 



LAST - LAST ACCESS DATE, 

DATE - CREATION DATE. 

SAVE " SAVE FACTOR; 

SIZE " SIZE OF THE FILE IN SEGMENTS. 

CREATOR - PRIVILEGED USERCODE ASSOCAITED WITH FILE. 
(FOR BACKUP FILES THE LABEL Of" THE PRINT FILE 
AND THE NAmE qF THE PROGRAM CREATING THE BACKUP 
IS ALSp LISTED). 



SECURITY - ACCESS PRIVILEGES OF THE FILE* 
LOCKED, UNLOCKED* PUBLIC* PRIVATE* FREE* 



I.E.* 



** **** *** **** * *** *********** ************* ******** ************ 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

RE PRlNToIRECTORY(BUFF)j 
BUFF; 

buff; 



Integer 
i» 
j* 
code; 



X NORMALLY CONTAINS OPTION NUMBER. 
X JUNK. 

- PD. 

1 - EX. 
Z ' LC. 

3 - LF, 

4 - LS, 



REAL 

MFID* X 

FID* X 

C# X 

D» X 

E» * 

N, X 

T, X 

INFO' * 
LABELREC, 

USErID* X 

x; X 

ARRAY 

HDRt*3# X 

xlstc*3;x 



1 IF 
IF "i 



'*♦» , 



MFlD OF DESIRED FILE OR 

FID OF DEslREn FtLE OR -1 

ADDRESS OF DISK HEADER. 

MFID OF LAST FILE FOUND BY SEEKNAM. 

FID OF LAST FILE FOUND BY SEEKNAM, 

WORK VARIABLE USED BY SEEKNAM TO SAVE 

NORMALLY USED TO SAVE DEST. INDEX. 

BIT MASK FOR OPTIONS SELECTED, 

X ADDRESS OF lABfl RECORD FOR PBD ( IF 

USERID IF LF. 

JUNK. 



DESCRIPTOR TO DISK HEADER, 

SOME DAY WE MaY ALLOW EXCEPTION LIST. 



INFO. 



LC ) 



BOOLEAN 

pbotog, x true if sflected 
foundafile; x tru f if we 



FILE IS A PBD. 

LISTED OUT A T LEa^T ONE FlLE< 



LABEL EX iT*0R0P0UT* DUMMY* OPT T ONS; 
DEFINE NUMOPTS * 7*; 
DEFINE PO « (CODE * 0)#> 
EX ■ (CODE ■ 1)*, 



*X08097700 

*X08097750 
*X08097800 

*X08097850 

**08097900 

*X08097950 

*X08098000 

*X08098050 

*X08098100 

*X08098l50 

*X08098200 

*X08098250 

*X08098300 

*X08098350 

*X08098400 

*X08098a50 

***X08098500 

XXXX08098550 

08098600 

08098650 

08098700 

08098750 

08098800 

08098850 

08098900 

08098950 

08099000 

08099050 

08099100 

08099150 

08099200 

08099250 

08099300 

08099350 

oe099aoo 

08099450 
08099500 
08099550 
08099600 
08099650 
08099700 
08099750 
08099800 
08099850 
08099900 
08099950 
08100000 
08100050 
08100100 
08100150 
08100200 
08100250 

08100300 
08100350 
08100500 
O8IOO55O 
08100600 



X** 

s 

X 



LC ■ (CODE 
IF a (CODE 
LS - (CODE 
'EFINE 
PRIMARYUSER « 
SAVEFACTOR * 
LASTACCESSOATE a 

CREATIONDATE a 

GUARDFiLEMFlD a 

6UARDFILEFID a 

EOFPQINTER a 

SEGSPERRQW « 

NOOFROWS a 
HEADFRADDRESS 



» 2)#* 
a 3)#> 
a a)#J 

' HDrC23#P 
i HDRC3J.£2ll03#* 
: HDrC33.[12»18]** 
. HDrC33.C3oU83## 
: HDR[53*» 

HDRt63#* 

HDRC73## 



HDrC83#* 

HDR[93.C«3»53#* 

HDRttCF3#; 

****************** s U B R U T 

UBROUTINE GETREAoY} 



X PRIV. USER CODE. 
X SAVE FACTOR, 
X LAST ACCESS DATEt 
X CREATION DAyE. 
X MFID OF GUARD FILE. 
X FID OF GUARD FILE. 
X EOF POINTER. 
X SEG. PER ROW. 
X NO, OF ROWS DECLARED. 
X CORE ADDRESS OF HEADER, 
I N E s *********************** 



BEGIN 
CODE 
BUFF 
INFO 

END OF 



Is BUFF.[9I6]J 

«a (TI«BUFF).U5»15] - li 

l» I (LC Or LF OR LS)[42l47ll3 

getready; 



& L5U3U7ti3; 



subroutine getfilespecifieRI 



BEGIN 

NAMEID(MFID,T); X GET MFid COR USERCODE IF "LF") 

IF LF THEN USERID »« MFlol X FIRST THInG IS USERIp FOR LF, 

IF MFID a »*«• i qr LF THEN 

MFID la - 1; 
NAMEID(FID'T); 

IF FID » "/ " THEN X GET FID 
BEGIN 

NAMEIDCFID#T); 

NAMElDfN^T); X GET NEXT ITEM, 
END 
ELSE X NO FID SPECIFIED IMPLIES FID OF "■" 
BEGIN 

n »■ fid; 

FID »a -U 

end; 
if fid,£6«63 a leftarrow or lf then x no fid specified 

FID l« - II 

END OF GETFILESPECIFIERI 



iUBROUTlNE PROCESSOPTiONLlST; 

" DO X ACCUMULATE OPTIONS 



BEGIN 

WHILE N t "«• 
BEGIN 

for i i« -l step j until cnumopts - 2) do 

DUMMYl: IF P(.OPTIOnS*I,+*lOD) a N THEN X MATCHES AN OPTION WORD 
BEGIN 

INFO I* INFO OR TWOCI + m X SET BIT CORRESPONDING TO 
GO TO DROPOUT! 
END 
ELSE X CHECK FOR "ALL" 



08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

***08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
06 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 
08 

0PT08 
08 
08 
08 



100650 
100700 
100750 
100800 
100850 
100900 
100950 
101000 
101050 
101100 
101150 
101200 
101250 
101300 
101350 
101400 
10U50 
101500 
101550 
101600 
101650 
101700 
101750 
101800 
101850 
101900 
101950 
102000 
102050 
102100 
102150 
102200 
102250 
102300 
102350 
102400 
102450 
102500 
102550 
102600 
102650 
102700 
102750 
102800 
102850 
102900 

102950 
103000 
103050 
103100 
103150 
103200 
103250 
103300 
103350 
103400 
103450 



% 



IF N s "AtL " THEN X SET ALL OPTION WORD BITS, 
INFO »= NOT o; 
DROPOUT: 

NAMEID<N#t>' % GET NFXT OPTION WORD. 

if n » ", " then nameid(n*t); x s*lp over comma, 
end; 
go to exit; 

X 

OPTIONS Ml "RECS M , X OPTION CINFO.U7U 

"LAST % % OPTION 1 CINF0 # U6U 

"DATE *, X OPTION 2 UNFO.UStl 

"SIZE ", X OPTTON 3 (INFQ.U4U 

"SECURIT", X n^TlON 4 (INFO.U3U 

"CREATOR", X OPTiON 5 C INFO, [4211 

"SAVE "; X CIPTtON 6 CINFO.UU1 
EXITI 

END OF PR0CE5S0PTI0nLISTJ 
X 

subroutine getset; 
x -„ 

BEGIN 

IF EX OR INFO i THEM X WE WILL NEED THE HQR. 
HDR »* IOQUE t SPACF(30) CCTC]; 
END OF GETSET; 

BOOLEAN SUBROUTINE WEgOTAFILf; 

BEGIN 

SEEKNAM(MFlD#F.ID*C#D#E*N,xLST)J % FIND A FILE. 
WEGOTAFILF »« C i OJ % C IS ADDRESS OF DISK HEADER, 

END OF wegotafile; 

BOOLEAN SUBROUTINE WEWANTTHIsFlLE; 

BEGIN 

PBDtOG la ((0 EOV "PBn "> » NOT OR CO EOv "PuD "> 

» NOT 0); 
IF HEADERADDRESS / THEN X WE NEED THE HEADER, 
DISKWAIT(-HFADErADDrESS>30>C); X READ HEADER, 
IF LF THEN X CHECK TO SEF IF WE WANT THIS FILE. 

WEWANTTHISFILE I* PRIMaRYUSER ■ USERIO 
ELSE 

IF EX THEN 
BEGIN 

STREAMCAlaCAlCULATFPURGEC-SAVEFACTOR>,X»*[X]); 

BFGIN 

SI is lqC A; Ds :« 8 OCT* 

end; 
wew a ntthisflle t a x > l ast accessdate; % true if file 

END 
ELSE 

wewantthisfrf i« true; 
end of wewantthisfile; 

subroutine putinfilename; 
begin 
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103500 
103550 
103600 
103650 
103700 
103750 
103800 
103850 
103900 
103950 
104000 
104050 
104100 
104150 
104200 
104250 
104300 

104350 
104400 
104450 
104500 
104550 
104600 
104650 
104700 
104750 
104800 
104850 
104900 
104950 
105000 
105050 
105100 
105150 
105200 
105250 
105300 
105350 
105400 
105450 
105500 
105550 
105600 
105650 
105700 
105750 
105800 
105850 
105900 

105950 
106000 
106050 
106100 
106150 
106200 
106250 
106300 



X 
X 



% 

X 



STREAMCAIaO I D# F* BllFF); % SET UP FILE NAME. 
BEGIN 

SI la LOC d; 

OS :» LIT " "; 

2 f Si l« SI + it DS |a 7 CHR; DS l» LIT "/"?; 

oi »» di - i; 

OS !■ 2 LIT " "I % NEED 2 SPACES TO ALLOW FOR ARROW. 
A ta OH 

end; 
t :* pi x save off dest. index. 
end of putinfilenamf* 

Subroutine dorecsi 

BEGIN 

STREAM(A!«IF PBDT0G THEN EOFPOlNTERxs ELSE EOfPOINTER+1 IT)I 

BEGIN 

OS l» 9 LIT "RECORDS! *•; 

SI !« LOC AJ 

OS la 8 DEC! % CONVERT NUMBER OF RECORDS TO DEC. 

A l« Oil X SAVE OFF f)I BEFORE ZERO SUPPRESSING. 

01 l» DI - 81 

OS la 7 FILLJ 

end; 

T la PI X SAVE DEsTlNATInN ADDRESS, 
END OF DORECSI 

SUBROUTINE DODATEORLASTI 

BEGIN 

STREAM( X I»CX))I 
BEGIN 

SI la XI 

DS la 8 DEC! X CONVERT DATE TO DECIMAL* 
END! 
GIMEDATEf tX],fCF],-X)J X CONVERT JULIAN DATE TO 6 DIGITS, 
STREAMCAIsCIai ) | x» T)l 
BEGIN 

A ( DS la 10 LIT "ACCESSED! "I JUMP OUT TO Ll)l 
OS la 9 LIT "CREATED! "I 

LI* 

SI la LOC XI 
SI la Si «, 2; 

3 ( DS »a 2 CHRI OS |a LIT "/")! 

01 la DI - 1; % ERASF THE EXTRA SLASH, 
A !» Oil X SAVE DEST. INDEX, 

end; 

T la p; % SAVE DESTINATION ADDRESS, 
END QF DODATEORLAST; 

subroutine dosize; 

BEGIN 

NT2 I" NOOFROWSI X NO. OF ROWS DECLARED, 

NT1 »» 01 X NUMBER OF ROWS PROCESSED, 

FOR J la 1 STEP 1 UNTIL NT2 DO X CHECK TO SEE IF ROW EXISTS, 



08106350 
08106400 
08106450 
08106500 
08J06550 
08106600 
06106650 
08106700 
08106750 
08106800 

08106850 
08106900 
08106950 
08107000 
08107050 
08107100 
08107150 
08107200 
08107250 
08107300 
08107350 
08107400 
08107450 
08107500 

08107550 
08107600 
08107650 
08107700 
08107750 
08107800 
08107850 
08107950 
08108000 
08108050 
08108100 
08108150 
08108200 
08108250 
08108300 
08108350 
08108400 
08108450 
08108500 
08108550 
08106600 
08108650 
08108700 
08108750 
08106800 
06108850 
08108900 
08108950 
08109000 
08109050 
08109100 
08109150 
08109200 



IF HDR[J + 9] * THEN NT1 * ■ NT1 + II X BUMP UP COUNT, 08109250 

STREAMCAIaNTlxSEGSPERRQW : T); 08109300 

BEGIN 08109350 

DS U 10 LIT "SEGMENTS* "I 08109400 

SI la LOC Al 08109450 

OS i« 8 OECI 08109500 

A la dH 08109550 

01 ,s DI - 81 08109600 
OS l« 7 FILL; 08109650 

ENOI 08109700 

t t= P; x Save destination address, O8I09750 

END OF DOslZEl 08109800 

% 08109850 

subroutine oosecurity; 08109900 

% ......... «...-,...... 08109950 

BEGIN 08110000 

J la IF PRIMARYUSfR * THEN X FREE FILE O8IIOO5O 

ELSE IF GUARDFILFMFID = MArK THEN X UNLOCK Or PUBLIC 08110100 

IF GUARDFILEFID s MARK THEN 1 X UNLOCKED 08110150 

ELSE 2 X PUBLIC 08110200 

ELSE IF GUARDFILEMFID < THEN 3 X PRIVATE 08110250 

ELSE 41 X LOCKED 08110300 

STREAM(J J AI-sGUArDFIlEMFID* Bt .GUARDFI LEFlD* T)l 08110350 

BEGIN 08110400 

DS la 10 LIT "SECURITY! "i 08110450 

CI I* CI + Jl 08110500 

GO TO FREE! 08110550 

GO t° UNLOK; 08110600 

GO TO PUBLIC^ 08110650 

GO TO PRIVATE! 08110700 

tOCKI DS 1* 6 LIT ♦♦LOCKED"! GO TO EXIT! 08110750 

PRIVATEIDS I* 22 ill "PRIVATE (SECURED WIjH "; 08H0800 

SI la LOC Al 08110850 

2 ( SI le SI + II DS t» 7 CHRI DS I* LIT "/"); 08110900 
01 »* 01 - U 08110950 
DS la LIT ")"; 08111000 
GO TO EXIT! 08111050 

PUBLIC OS la 6 LIT "PUBLIC"! GO TO EXIT! 08111100 

UNLOKi OS !■ 8 LIT "UNLOCKED"; GO TO EXIT; 08HU50 

FREE* OS la 4 LIT "FREE"; 08U1200 

EXIT» J !» OH 08111250 

END! 08111300 

t i« p; x Save destination address. O8H1350 

END OF DOSECURlTY! 08111400 

X 08111450 

SUBROUTINE DOCREATOR; 08111500 

% -------- 08111550 

BEGIN 08111600 

SSET OMIT a PACKETS 08111650 

IF JtaCPBDTOG A ND CE,C30lifl] a 1>) THEN X REEL 1 OF PBO 08U1700 

SPOP OMIT 08111750 

$SeT OMIT a NOT(PACKETS) 08111800 

IF Jl.CPBDTOG AND cE,U2lft] a D) THEN X REEL 1 OF PBD 08111850 

$POP OMIT 08111900 

BEGIN 08111950 

TF LABELREC « THEN LABELREC la SPACE<30); 08*12000 

DlSKWAlT(-LABELREC'30'HDRC10]+2); 08112050 



% 

X 



end; 

STREAM(J i Bis PR|MARYUSe:R*0» Cl*PRlMARYUSER# 

DlsLABELREc INx 12* T)J 
BEGIN 

DS Is 9 LIT "CREATOR! "I 

B ( OS IM LlT "nONf"! JUMP OUT TO L2 )i 

SI la LOC CI 

si i* si + 1; 

OS la 7 CHRI 
L2I 

J ( DS «* 2 LiT " ("; 
SI !■ Dl 

2 ( Si la Si + lj DS »= 7 CHRj DS la LIT "/")| 
DI «» 01 - II DS 5 = 4 LIT w OF "I 
2 ( SI is SI + 1; DS l« 7 CHR; OS t* LIT "/")| 
DI I* DI - I! DS |a LIT ")" )| 
J J* Dll 
ENDI 
T la PI % SAVE DESTINATION ADDRESS. 

END OF DOCREATOR! 

SUBROUTIME DOSAVEFACToRI 

BEGIN 

STREAMCA »a SAVEFACTOK I T)l 
BEGIN 

DS la 6 LIT "SAVE: "I 

SI »■ LOC Al 

DS la 3 DECI 

A I* Dll 

DI •■ DI - 31 

DS la 2 FILLI 

end; 
t la pi x save destination address, 

end of dosavefactori 
subroutine dqoptions! 

BEGIN 

FOR I !» STF.P 1 UNTIL (NUMO p TS - 1 ) 00 X SEE IF OPTION BIT 
IF CTWO(I) AND INFO) X THEN XQPTION SELECTED, 
BEGIN 

CASE I OF 
BEGIN 

DORECSI X CASE - "RECS" 
BEGIN X CASE 1 - "LAST" 

X !■ LASTACCESSDATEl 
DOOATfORLaSTj 
END OF CASE II 

BEGIN X CASE 2 - "DATE" 

X l« CREATIONDATEI 
DODATeORLaST; 
END OF CASE 21 

DOSIZEI X CASE 3 - "SIZE" 
DOSECURlTYl X CASE 4 - "SECURITY" 
DOCREATORI * CASE 5 - "CREATOR" 
DOSAVEFACTORI X CASE 6 - "SAVE" 



SET, 



061 
061 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
081 
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081 
081 
081 
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061 

081 
081 
081 
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081 
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081 
081 
081 
081 
081 
081 
081 
081 
061 
081 
081 
081 
081 
081 



12100 
12150 
12200 
12250 
12300 
12350 
12400 
12450 
12500 
12550 
12600 
12650 
12700 
12750 
12800 
12850 
12900 
12950 
13000 
13050 
13100 
13150 
13200 
13250 
13300 
13350 
13400 
13450 
13500 
13550 
13600 
13650 

13700 
13750 

13800 
13850 
13900 
13950 
14000 
14050 
14100 
14150 
14200 
14210 
14250 
14290 
14300 
14310 
14320 
14340 
14350 
14360 
14370 
14400 
14450 
14500 
14550 



END OF CASES) 

STREAMCI : T); X PUT COMMA AFTER L*ST OPTION. 
BEGIN 

os »■ 2 uit *# ••; 

I »* DlJ 

end; 
t »« p; 

END OF LOOP TO PROCESS OPTIONS; 
END OF DOOPTIONS; 
1! 

subroutine makethemessage; 
% .......... .............. 

begin 

IF FOUNDAfILE then % we need a buffer. 

buff !* spaceoo); 
putinfilename; 
dooptions; 

STREAM(T); X PUT IN the left arrow. 
BEGIN 

DI l« DI -2; 

os 1* lit leftarrow; 
end; 
end of makethemessage; 

X 

subroutine complain; 
% .......... ........ 

begin 

stream(buff); 
ds ** e lit " null 

spoutcbuff)* 
end of complain; 

X 

subroutine forgeteverythi n g; 
% .......... ........_.„..... 

begin 

if headeraOdress / t h en forgetspacecheaoeraddresS); 

IF LABELREC / THEN FORGETSPACE( LAbELREC )' 

end op forgeteverything; 
%******************** start of code ********************** 
getready; 

getfilespecifier; 

processoptionlist; 

getset; 

WHILE WEGOTaFILE DO 

IF WEWANTT H ISFILE THEN 
BEGIN 

makethemessage; 
spout(buff); 
foundapile i» true; 

END* 

if not foundafile then complain; 

forgeteverything; 
end of prjntdlrectqry; 

$l DATE 9/10/75 

*l BY JTC «" MSA CENTRAL 

*l THIS PATCH REWRITES THE pRI nTDIRECTORY PROCEDURE, MUCH NEEDLESS 

St CODE HAS BEEN ELIMINATED (THE PROCEDURE IS 30 WORDS SMALLER) AND 



»; X ORIGINAL INPuT Is AT BUFF + I. 



08114600 
08114630 
08114700 
08114750 
08114800 
06114850 
08114900 
08114950 
08115000 
08115050 
08115100 
08115150 
08115200 
06115250 
08115300 
08115350 
08115400 

08H3450 
08115500 
08115550 
08115600 
08115650 
08115700 
08115750 
08115800 
06115850 
08115900 
08115950 
08U6000 
06116050 
08116100 
08116150 
08116200 
08116250 
08116300 
08116350 
08116400 
08116450 
*08116500 
08116550 
08116600 
08116650 

O81167Q0 
08116750 
08116800 
08116850 
08116900 
08116950 
08H7000 
08117050 
08117100 
08117150 
08U7200 
99990000 
99990100 
99990200 
99990300 



SI 
SI 
SI 
SI 
St 
SI 
Si 
Si 
SI 
St 
SI 

St 
St 
St 

SI 
St 
St 
St 
St 
SI 



SOME NEW OPTIONS ARE AVAILABLE. T 
HANDLED BY THIS PROCEDURE CPO'EX, 
SLIGHTLY IN THAT A SlASH IS NOW R 
LAST NAMES OF A FIlE (A SPACE WOU 

multiple option words may be spec 
in aoditlqn* fqur new option wqrd 
lists out the save-f actor of the 
privileged usercode associated hi 
lists out the access rights of th 
public private, or free, and "al 
mation available from each of the 



HE SYNTAX FO 
LF#LC AND L 
EQUIRED BETW 
LD SUFFICE P 
IFIED AFTER 
S HAVE BEEN 

FILE* "CREAT 
TH THE FILE, 
E FILE, I.E, 
L" LISTS OUT 
INDIVIDUAL 



R ALL MESSAGES 

S) HAS BEEN CHANGED 

EEN THE FIRST AND 

REVIOUSlY) AND 

ANY OF THE MESSAGES. 

ADDED, "SAVE" 

OR" LISTS OUT THE 
"SECURITY" 
LOCKED, UNLOCKED, 
ALL Or THE INFOR- 

OPTIONS, 



SOME EXAMPLES OF THE MESSAGES THAT ARE POSSIBLE FOLLOW. 

PD A/B recs>date,size 

LF STTE ALL 
LCPBD RECS 



CONSULT THE HEAD 
FOR ADDITIONAL I 
SfPATCH NUMBER 142 F 
REAL NEU; DEFINE 
SI DATE 10/1/75 
SI BY JTC - MSA CENT 
Si THIS PATCH CORREC 
*» WHICH COULD CAUSE 

$t varaible avs was 

St PROCEDURE USERDIS 

SjKPATCH NUMBER 143 F 

LABEL PE*TE,PA 

SWITCH S l» LL 

CI* IF U4I-I4) i 

BEGIN GO TO St 

LL' 14 la LOGLINE. 

St DATE 9/25/75 

St BY JTC - MSA CENT 

St THIS PATCH IMPLEM 

St LOGICAL LINE numb 

St IS RUNNING, BATCH 

SKPATCH NUMBER 144 F 

PROCEDURE FORMTIMECW 



B 



ING BLOCK OF THE PRINTDIRECTORY PROCEDURE 
NFORMATION. 

OR TSSMCP CONTAINS 1 CARD, 
U*UT#,UA»UT#*NEUlsNEU+J#,NEU2*NEU+NEU#; 

RAL 

TS A PROBLFM IN SHAREDIsK McPs 

INVALID LTNK ERRORS, THE GLOBAL 
BEInG USED INCORRECTLY IN THE 
KSPECIALCA5E. 

OR TSSMCP CONTAINS 5 CARDS, 
»LLJ 

#pa,pe»temt>us,o,to»pr,iot,tmr,ad#wd; 

<*6) and 14 s 6 then 

14+6]; 

uoibj; go to initiate; 

RAL. 

ENTS TIMEC-6) WHICH RETURNS THE 

ER FROM WHICH A PARTICULAR pRoGRAM 

PROGRAM WILL ALWAYS RETURN A ZERO. 
OR TSSMCP CONTAINS 7 CARDS. 
*T); VALUE W#TJ REAL W#t* FoRWARDi 

(S+2 + CMCBUF INX Z] « [ 1 15]*»>") )(6t 381 10 JJ 
0RM T IME(CNt1),XCL0CK+PCRTR)); 

TREAM(Nt»S-i,CLl«Sxa-Y,AAt*BUF INX Z'BB t« NTl* 
BUFt*tBuF[R)]); 

egin ds t» 7 lit " "; si i* loc bb; ds i« a chr; 
DS I* 9 LIT " "/ si i« aa; 



St DATE 10/20/75 

St BY JTC - MSA CENT 

St THIS PATCH ADOS T 

St ENTERED INTO THE 



S#PAtCH 



ipceRRj 



RAL. 

HE TIME OF DAY TO EACH MESSAGE AS IT IS 

packet page 

or tssmcp contains 7 cards 

cerr; 

lNIT,SLOWf C34*C35»C36#C37#TW,TW,C40,C41MPCERR# 

ipcerr#ipcerr#ipcerr,ipceRR#ipcerr,tw#slow; 

TERMINATE (PlMIX); 
TERMlNALMESSAGE (9ft); 



NUMBER 145 F 
LABEL IP 



99990400 
99990500 
99990600 
99990700 
99990B00 
99990900 
99991000 
9999U00 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 
99991900 
99992000 
99992100 
99992200 
99992300 
00000000 
06351055 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 

oooooooo 

18701010 
18701100 
18710100 
18710200 
18710230 
99990000 
99990100 
99990200 
99990300 
99990400 
00000001 
00480010 
02173296 
02173297 
02173300 
02173301 
02173305 
02173306 
99990000 
99990100 
99990200 
99990300 

19504100 
19508100 
19508200 
19575000 
19575100 



*8invaLd% "a ipc c* 

w 2 M " » 

St BY JTC - MSA*CENTRAL» SOFTWARE FLASH HI 

$1 ********************************************** *********** 
$#PATCH NUMBER 146 FOR TSSMcP CONTAINS 41 CARDS. 
LABEL EOF, CLEANUP; 
DEFINE H * HEADER*; 
$ VOjOT 38477001 

BEGIN % COMPILE TO LIBRARY 

for Ti i* 15 step i until 22 DO X COPY PROC 

SEGOfTl] 1* SKELCTH; X STACK, COMMON* PR 
IF (T2 i* SKELF133) * THEN X LAB. EQN, EN 
BEGIN 

SKELU3] »* O; X SO TERMINATE WONT SEE 

diSkwait(SkeL»ccf]#30#t3)I x Rewrite SK 

« — -*«*■ »» H[71 + i; % ADDRESS OF 1ST 



41445500 
41445600 



************* 



* I/O* 
IQ.* ETC. 
TRIES 

ESPDISK STUFF 

Ett SHEET 
ENTRY 



CODE FILE 
N X NO ROOM 



SEG0C15] 
DO 

BEGIN X COPYING LABEL EQN. INFO InTO 
IF DlSKADDRESSCMlD»FlD#FPBtFNUM+3 3# 
(TU*HC73 t«HC73 + l)*H*0) * THE 
BEGIN 
DO 
BFGIN 
nISKWAlTeSKEL.CCFJ»30*T2)J X GET SEG , 
F0RGETESPDISK(T2)I 
END 
UNTIL CT2 «« SKELC293) * 0} 
FlLEMESSC- M DlSK %"OVRFLOw"*M ID*F I D* 
R*D*C)/ 

End 

ELSE 
BEGIN 

DISKWAITC-SKEL,CCFJ,30#T2); X GET SEG, 

F0RGETESPDISKCT2)J 

IF (T2 I* SKELC293) * THEN X 

SKELC29] I- Tl + 1* X ADDR. I 
DISKWAIT(SKEL.CCF1#30»H»(HCT1 
+10] + Tl MOD HC8])j; 
END 

end 

UNTIL T2 « O; 
ENO OF PROCESSING LABEL EQUATION INFO; 
SEG0[6] I* NAB$(*P(DUP)); X NEW FORMAT SEG. ZERO 
HC41. CIO 111 «* i; X MARK AS PRQGt FILE 

diskwaIt(seg0.ccf3'30#hcioj); x Rewrite seg. Zero 

END OF COMPILE TO LIBRARY PROCESSING; 
DATE 1/19/76 
BY JTC - MSA CENTRAL. 

WHICH 



MORE OF E M 
N CODE FILE 
DIV HC83 



I 
I 

I THIS PATCH CORRECTS AN UNLIKELY 

SEGMENTS TO BE lEET In USE IF A CQMPI 
ADDITION* THE PATCH USE 



ERROR IN DISKCLOSE 
. CAN CAUSE E$P DISK SEGMENTS TO BE lEET In USE IF A VU n. 
I GETS DS-ED FOR DISK OVERFLOW. IN ADDITION* THE PATCH US 
I THIS OPPORTUNITY TO REWRITE THE EXCEPTIONALLY BAD LOGIC 
I CONTAINED IN THIS ROuTINF* 

#PATCH NUMBER 147 FOR TSSMcP CONTAINS 2 CARDS 
UPTIMEOUT(MlX); 

downtimeoutcmix); 

SI BY JTC - MSA CENTRAL* SOFTWARE FlASH 162 



ler 
s 



00000000 
38363000 
38385700 
38446500 
38447000 
38447500 
38448000 
38448500 
38449000 
38449500 
38450000 
38450500 
38451000 
38451500 
38452000 
38452500 
38453000 
38453500 
36453600 
38453700 
38454000 
38454100 
38454500 
38455000 
38455500 
38456000 
38456500 
38457000 
38457500 
38458000 
38458500 
38459000 
38459500 
36460000 
38460500 
38461000 
38461500 
38462000 
38462500 
38463000 
38463500 
38464000 
99990000 

99990100 
99990200 
99990300 
99990400 
99990500 
99990600 

24035300 
24096800 



$!**#*#**** ***************************************** ********* 



SfPATCH NUMBER 1*8 
TEMP 4. F 
$1 BY JTC - MSA CEN 
SI SEE ALSO DREXEL 
SI***************** 
$#PATCH NUMBER 149 



BEGIN Sit 
DI»»D 
Di >*T 
TWXOUTfTM 
• DATE 2/11/76 
t BY JTC - MSA CENTRAL 
I 



™ ™ — ™ w — — — ■»-- — w — -- — — — — — — 

FOR TSSMCP CONTAINS 1 CARD 

& K fCTFi; 

TRAL, SOFTWARE FLASH 163 

u. patches 60i#662#748 

**************************** 
FOR TSSMCP CONTAINS 7 CARD, 
DS It 8 DEC; DS l« 2 LIT " 

oi I* di - ioi ds t* 7 fill; 
si :« e; os :« io chr; 

LOC A^ DS««fi DECi DSl»2 LIT 

i-io; dsi»8 fill; aisDi; 
i Sjisa; os««io chr; 

0#0&iCCTF3*1 C2«47«1]*R6); 



*********** 



********************* 



*"; 



« *.»} 



t this patch cause; 

t NUMBER IS SEOUEN( 

« input with previi 

i commands of cano! 



S AN EXTR 
CE MODE. 
OUSLY PRt 
E PRINT A 
I************************** 
#PATCH NUMBER 150 FOR TSSMC 

STREAM(LC 

BEGIN 

DS la 

LCFLG 

OS I* 

end; 

M(LCFLGI, 

IN 

S »■ 3 L! 

CFLG (DS 

S 1= LIT 

; 



A BLANK TO 
THIS IS CON 
NTpD OUTPUT 
N EXTRA SPA 
*********** 
P CONTAINS 
FLGl'LONGCA 

6 LIT "DEL 
(OS «« 3 L 
LIT LEFTAR 



be typed out after the sequen 
ven1ent for lining 
since the list and pr 
ce after the sequence 



********************** 



INT 

number, 

******* 



12 CARDS, 
RRIAGECSl),Vl«CV|aGETAREACO>) 

*</ w ; 
it »<"); 

row; 



stReai 
beg: 

D! 

LI 

d: 

END; 



L0nGCARRIAGECS1]#V««V+1)J 



t "s</ w ; 

l» 3 LIT "< 

LEFTARROW; 



">; 



DATE 2/11/76 
BY JTC - MSA 



CENTRAL 



THIS PATCH ADDS 
AFTER THE CARRlA 
LEFTARROW, THIS 
FROM BEING LOST 
*#Patch NUMBER 151 
#ITSALLBATCH 



an Extra de l ay for terminals 

GE RETURN TYPEO OUT WHEN THE 
PREVENTS THf BEGINNING OF SE 
IN SEQUENGE MODE, 
FOR TSSMCP CONTAINS 
* TOGLE;tl6»13* 
END 

else % its below 

IF ITSALLBATCH 

BEGIN 

TANKSCLLJ t» NABSCT 
CLICK «a CLOCK + P( 
SLEEPCO#0); % WAIT 
GO TO START; % TRY 

end; 

IF P(0,RDS) < FENCE THEN X BELOW THE F 
BEGIN CLICK I* CLOCK + P(RTR) ♦ 1023 ♦ 

COMPLEXSLEEPCINPUTANKCTJ.INPUTN 
END ELSE 



WITH UONG CARRIAGES 
USER TYpES A 
QUENCE NUMBERS 



38 CARDS, 



THE FENCE 

THEN % WE WILL WAIT AWHILE 



); 

RTR) + 128J % 2 SEC, 
FOR TIME OUT. 
AGAIN* 

ENCE 

1023; % 34 SEC, 
OR TERMSETCP1MIX)); 



18273055 



**** 

00000000 
03733500 
03734000 
03735000 
19559120 
19559140 
19559160 
19559200 
99990000 

99990100 
99990200 

CE 99990300 
99990400 
99990500 
99990600 

****99999999 
00000000 

♦1);03826100 
03826200 
03826300 
03826400 
03826500 
03826600 
03900000 
03900100 
03900200 
03900300 
03900400 

03900500 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
00000000 
00081785 
03147000 
03147100 
03147200 
03147300 
03147400 
03147500 
03147600 
03147700 
03147800 
03299700 
03299730 
03299750 
03299780 



I 

SUBrOUT 
BEGIN C 
TAN 
IF 
IF 



END 



CLE 

TAN 
OF 



F tMEM[M 

IF T < 
INE CLEA 
L.EARTANK 
KStllsLO 
WORKING 

HARRYSTA 
COMPLE 
ARINPUTA 
KOKCI] I 
CLEARALL 
I 

I 



IX,033 
P20000 
RALLTA 
CtOGlI 
GlINE. 
THEN 

■ I T 
XSLEEP 

nk; 
. o; 
tanks; 

F LOGL 
CL 

«■ o; 



.tCF3 > FENCE OR ITSALIBATCH THEN 
OR T > PlOOOOO THEN 

nks; 

NE,0); 
[40«83]»-(*P(DUP))40CCTC3; 

X MAKE SURE HARRY ISNT 
HEN X DIDDLING OUR LINE 
(NOT WORKING OR HARRYSTA t I); 



SVOIDT 

BEL 

IF 

IF 



14367035 

OW «» CSC23.C8 

FENCE. t 321 1 63 
J < 7 THfN X N 

♦(CHUNK 

II'CHUN 

IF (Tl« 

> 

itSallb 



INE.C33I7] * 

earalltanks* 

x Re-initialize for core 
clEaralltanks; 



AND PIMIX * CANOYINX THEN 
SEARCH 



1 103*5 ) OR ITSALLBATCHJ 

* FENCE OR FENCE < 8t92 TH£N FENCE I* U38^) 

EEn TO FIND HIGHEST ON LINE MOo BEL°W FENCE 

max*0) x in case its all batch 
km a x+(chunkmax»0); 

M[a+19]»C32»163) X FENCE AND T t THEN 

fr?oooo and t s piooooo then fence »= t; 

ATcH I. FENCE i $60000; 



DATE 
BY J 



2/11^76 
TC - MSA CENTRAL (PATCH RECEIVED Frqm STEVE KELLEY - LSSG U.K.) 



this patch allows thf fence to be moved to the top of memory* 
suppressing all swaplng, all jobs entered are treated as batch 

JOB - REGARDLESS OF RUN* EXeCUTE OR COMPILE. 

CANDE PROGRAMS USING TERMINALS MAY RUN WITH THE FENCE AT 32K* 
HOWEVER, THEY Wl|_L NOT BF SWAPPED AND THE JOBS MIGHT BE SCHEDULED 
SINCE ALL JOBS ARE TrEaTfD AS BATCH, 



It is intended that only 
is at the top of memory. 
waiting for terminal input or when 
condition satisfied. 



LIMITED TERMINAL USAGE OCCURS 
SINCE REMOTE JOBS WILL TIE UP 

STOPPED OR WAITING FOR EXTERNAL 



IF THE FENCE 
CORE WHEN 



THIS PATCH WILL CAUSE THF TSS MCP TO SIMULATE THE 
BATCH* OR DC, MCp WHILE mAI n TAIn!nG THE TSS LOGGING 
FACILITIES, THIS PATCH WILL NOT CAUSE REENTRANCY TO 
OCCUR* 

♦A******************************************************************* 

#PATCH NUMBER 152 FOR TSSMCP CONTAINS 5 CARDS, 
SPACESTACKSIZE * 85#; 
SPACESTACKSIZE ■ 105#; 
RRAY SPACESTACkC*3j 
VOJOT 

I «« SPACESTACKSIZE; 
» DATE 3/1/76 

BY JTC - MSA CENTRAL 



T is P(.SPACESTACK); Fix; % 



THiS PATCH INCREASES THE SPACE STACK 
PREVENT A POSSIBLE STACK OVERFLOW In 
OCCURRED WHEN OLAY CALLED DlSKSPACE 



size from bo to 85 words to 
the space stack. the overflow 
and dlskspace forked 



07500000 
09916000 
1435U40 
14351445 
14351450 
14351455 
14351460 
14351465 
14351470 
14351475 

14351480 
14360510 

14360520 
14360530 
14367021 
14367022 
20163200 

44104000 
44109900 

44151050 
44163100 
44191020 
44191040 
44420000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
99991000 
99991100 
99991200 

99991300 
99991400 
99991500 
99991600 
99991700 

99991800 
99991900 
*99999999 
00000000 
00013870 
00013890 
00013910 
23399000 
44173100 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 



GET 
WHE 
RUN 
AND 
INV 
THA 
I **** 

i#PATC 



MOREOLAYD 
N FORK WE 

NER entry 

IT WAS N 
OLVED CAL 
T OVERFLO 
********* 

H NUMBER 



ISK FOR A PROGRAM RUNNING UNDER T H E FENCEi OCCASIONALLY' 99990600 

NT TO GET A FlVF WORD AREA TO BUILD THE INDEPENDENT 99990700 

IN THE FORKOUE THERE WERE NO FIVE WORD AREAS AVAILABLE 99990800 

ECESSARY TO BREAK UP ONE OF THE LARGER AREAS. THIS 99990900 

LlNG FORGETAREA AND IT WAS THIS CALL ON FORGETAREA 99991000 

WED THE STACKt 99991100 
*********************************************************99999999 



START» 



X 
X 
X 

X 
X 

X 
X 



X 
X 
X 



153 FO 

IELD M 

ABEL S 

»* ?1 



R TSSMCP CONTAINS 43 CARDS, 

aybeworkedon ■ mil; 

tart; 

04; x this is the code we will pass to 

x getspace the first time. it requests 
* Overlay memory for the mcp and that 
x we want to be returned to on a no 

* MFM. 



$» 
$! 
SI 
St 
SI 
SI 



F NOT 
SL 

egin 

2 

M[ 

N 
I 
A 
S 

T 

IF 
BE 



M[s].MA*BEWORKEDQN THEN X WAIT TILL OTHER GUY IS 
EEPUM[SJ],0 i TRUE CMAYBEwORK£DON3 ) ; 



'.» Y.tftUOlJ X SIZE 
S1.MAY8EW0RKE00N 1= 



OF PROCEDURE 
FALSE* 



IN WORDS 



PROC. 
TRY 



ow we will attempt to get space for this mcp 
f we fail we will wait for a second and then 

GAIN. THIS ENSURES THAT IF We GET DS-ED WHILE 

lef p ing w a iting for memory we will not leave the 
oggle locked up for this procedure. 

<TI«GETSPACECZ'65,X)+2) s 2 THEN % NO M£M 
GIN 

mcsj.maybeworkedon t* true; 
x.u6m3 i" true* x dqnt put out 
slefpcrclockdfnot clock); x wait 
go to start; 



EN 
Mt 



d; 

S3 



fields of savff parameter 

f: 



IELO 
NEEDO 

TYPEN 
,JUSTR 
*GETFR 

; 

ST 



LAY 

omemanoREtuRn 

ETURN 

OMfRONT 



■ 09139 



45101 
46*01 
47101 



X 
X 
X 

x 

X 



oooooooo 

21015100 
21015200 
21015400 
21015500 
21015600 
21015700 
21015800 
21015900 
DQ21016000 
21017000 
21018100 
21018200 
21018300 
21018400 
21018500 
21018600 

21018700 
21018800 
21018900 
21019000 
21019100 
21019200 
21019300 
21019400 
21019500 
21019600 
21020000 
21024000 
24304100 
24304110 
24304120 
24304130 
THIS FIELD IS N0N ZERO IF 24304140 
REQUESTOR WANTS QLAY SPACE24304150 
IF SAVEF. [451023 * 3 THEN243Q4170 
GETSPACE WILL TYPE OK MEM24304180 

24304190 
24304200 



MESSAGE 
A SECOND 



I* f*PfDUP)) * T CCTC3 & TRUE CMAYBEW0RKE00N3; 



IF SUCESSFULL. 
SAVEF.C45I23-3)* MIX* SIZE* 



DAT 
BY 

THI 
TRY 

FOR 



I 
E 3/1/76 

JTC - MSA 

S PATCH W 

ING TO BR 

THE PROC 



REaMCXI"(MES$/0 OR 

MESS««MESS1-GETAREAc0)>; 

IF SAVEF«w)USTRETURN THEN PtO'RTNH 
IF SAVEF.TyPENOMEMANORETURN THEN P(0#RTN); 
F MESS/0 OR SAVf?F.t45l23 * 3 THEN TELLSPq; 

CENTRAL 

ILL PREVENT A PROGRAM FROM BEING DS"ED WHILE 

ING IN AN MCP PROCEDURE. THIS USUALLY LEFT THE TOGGLE 

EDURE LOCKED UP SO THAT THE PROCEDURE WAS PERMANENTLY 



24305700 
24305750 
24315000 
24317000 
24401000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 



$1 

$1 

St 
SI 
S| 
St 
St 
St 
St 
SI 

S> 
St 

St 



PREVENTED FROM BETING BROUGHT INTO CORE, THIS CONDITION OCCURRED 
WHEN THE PROGRAM WAS SLEEPING WAITING FQR A nQ MEM CONDITION TO 

clear up so that the procedure could be brought in at the same time 
that the operator ds-ed the program. if the no mem condition did 
not clear up in about 8 seconds* nsfcond would force 

THE STACK TO BE DS-ED. NOW* ESPBIT WILL HANDLE ThE NO MEM 
CONDITION HIMSELF IN SUCH A WAY THAT NO TOGGLES WILL BE LOCKED 
SHOULD THE OPERATOR DS THE PROGRAM WHILE IT IS TRYING TO BRING IN 
THE PROCEDURE* 



IF A -NO MEM- MESSAGE IS DISPLAYED BY 
ABOVE CONDITIONS* THERE WILL NOT BE A 
-OK MEM- MESSAGE. 
St******************************* 
S#PATCH NUMBER l54 FOR TSSMCP CONTAINS 
% 

IF W£ REACH THIS POINT THEN THIS JOB HAS USED 
UP ITS TIME SLICE (EITHER PROCESSOR OR I/O) OR 



ESPBIT UNDER THE 
CORRESPONDING 

************************************** 
-••— 30 CARDS, 



X 
X 

SVOIDT 

X 

X 

X 

X 
X 
X 

X 
X 
X 
X 
X 



48038401 



THIS JOB Has BEEN DOING EXCESSIVE OVERLAY AND 
DESERVES ANOTHER CHuNK OF MEMORY. IF THE 
PROGRAM H AS USED UP ITS TIME SLICE* WE WILL 

IF THERE IS SOME OTHER PROGRAM THAT 
RUN AND CAN USE THIS GUYS CHUNKS. IF 
HAS BEEN DOING EXCESSIVE OVERLAY AND 
HAS ROOM FOR EXPANSION AND DIDNT USE 
TARD* WE WILL SWAP IT OUT 



SWAP IT OUT 

is Ready to 

THE PROGRAM 
THE PROGRAM 
A MAX CORE 



AND SWAPPINGIO 
CHUNK, 



WILL ARRANGE TO OBTAIN ANOTHER 



St 
S> 
St 
St 
St 



DATE 3/12/76 

BY JTC - MSA 



IF P(0*RDS) > FENCE THEN X SWAP JOB 
BEGIN 

FOR NT2 Is SCCPlMlx] STEP 1 
IF ACTIVECNT2J > 1 THEN X 
BEGIN X 

SwAP(TIMENO*l)J X 

GO to return; 

END; 

IF ola y ctrcpimix] < o THEN x 
if dontexpandbitscpimixj ■ 
begin 
swapctimend,d; x 
go to return; 
end; 
en d ; 



UNTIL LCCPlMlxJ 

someone can USE 

CHUNK. 



DO 
THIS 



EXCESSIVE OVERLAY. 
THEN X EXPANDABLE 



CENTRAL 



THIS PATCH 
CHUNK WHEN 



prevents a job 
the job Cannot 



from being swapped 
be expanded, 



OUT TO OBTAIN A NEW 



$1 ********************************************************************* 

tIDlTfU kllluaro .Be r»mn »cr-.._r> -„>,TATnC „ i . «.►.«», 



S#PATCH NUMBER 155 FOR TSSMCP CONTAINS 261 CARDS. 

BEGIN STREAM(A»*TYPEDSPACEC10*SPQUTMSGAREAV) 
DEFINE 

TYPEDSPACE(TYPEDSPACEl*TYPEnSPACE2) « 

(GETSPACECTYPE0SPACEl»TYPEDSPACE2*0)+2)# X 
*ARRAYDESC(ARRAYDESC1,ARRAYDESC2> ■ 



t >;x 



99990600 
99990700 
99990800 
99990900 
99991000 
9999U00 
99991200 
99991300 
99991400 
99991500 
99991600 
99991700 
99991800 

♦99999999 
00000000 
48038120 
48038130 
48038140 
48038149 
48038150 
48038160 
48038170 
48038180 
48038190 
48038200 
48038210 
48038220 
48038230 
48038240 
48038250 
48038260 
48038270 
48038280 
48038290 
48038300 
48038310 
48038320 
48038330 
48038340 
48038350 
48038360 
48038370 
48038380 
48038390 
48038400 
99990000 
99990100 
99990200 
99990300 
99990400 

*99999999 
00000000 
00005230 
00017005 
00017010 
00017015 
00017020 



(CM[GETSPACE!(ARRAYDESC1,ARRAYDESC2,0)+2]J & ARRAYDESC1 CSIZE])* X00017025 

>SAVEARRAYDEScCSAVEARRAYDESCi,SAVEARRAYDESC2) = 00017030 

UMCGETSpACEC SAVE ARRAYDESCl* SAVE ARRAYDESC2»l)+2]] 00017035 

& SAVEARRAYDESC1 CSIZE])* X00017040 

' 00017045 
%%%%%%X%t%%%%X%%%%%%X%X%%X%%%%%%%%%XX%%%X%%t%%%%%XX%XZX%%%%%X%%%XXX%%%%%00017\00 
X************#******#********* # **************** A *#***** A ****** JMr##A ^ ### jQooi7ito 

** *X000t7l20 

X* MEMORY AREA TYPES STORED IN 3«6 FIELD OF FIRST MEMORY *XOO0l7i30 

X* LINK OF ALL MEMORY AREAS *X000l7l40 

** *X00017150 

X*******#****************** # ** <f ***#*****,i r * (fA#t ** Vkl i riMMf * <rik#iHHk ^ #ik<llr<rAWAA<k#X O00l7i60 
X%XXXXXXXXXXXX%%XXX%XXXtXXX%XXfXXXX%XXX%XXXXXXX%XXXXXXXXXXXXXXXXXXXXXXXX000X7\70 

DEFINE 00017180 

UNKNOWNAREAV * 0* X 00017190 

CODEAREAV = 1* X 00017200 

DATAAREAV = 2* X 00017210 

IOBUFFERAREAV • 3* X 00017220 

ALGOLFIBArEAV m UU X 00017230 

INQUIRYBUFFAREAV m 5* X 00017240 

C080LFIBAREAV m 6* X 00017250 

TYPE7INTAREAV * 7* X 00017260 

diSkheaderareav s a# x 00017270 

MaINTBUFFaREAV u 9* X 00017280 

LBLEONAREAV m 10* X 00017290 

SEG2ER0AREAV • Hf X 00017300 

STACKAREAV » 12* X 00017310 

TYPE13INTAREAV ■ 13# X 00017320 

SCRATCHDIRAREAV = 14* X 00017330 

OPSETAREAV « 15* X 00017340 

DIRTOPAREAV » 16# X 00017350 

SPOUTMSGAREAV « l7f X 00017360 

UVROWAREAV a 16* X 00017370 

JARROWAREAV * 19* X 00017380 

CIDROWAREaV c 20* X 00017390 

INOINPUTAREAV * 21* X 00017400 

INTARRAYAREAV ■ 22* X 00017410 

RjEINPuTAREAv » 23* X 00017420 

DCQUEUEAREAV = 24* X 00017430 

OALOCROWAREAV = 25* X 00017440 

SHEETAREAV ■ 26* X 00017450 

STAWORDAREAV « 27* X DC MCP ONLY 00017460 

KEYINBUFFAREAV « 28* X 00017470 

FSAREAV m 29* X 00017480 

DC19QUEUEAREAV ■ 30* X DC MCP ONLY 00017490 

AVTABLEAReAV m 31* X 00017500 

TRACETABLEAREAV , 32* X DC MCP ONLY 00017510 

SEGDICTAREAV = 33* X 00017520 

STACKPRTAREAV s 34* X 00017530 

MCPTABLEAREAV > 35* X 00017540 

IRSTACKAREAV a 36* X 00017550 

FPBAREAV b 37* X 00017560 

CONTRQLCAROAREAV • 38* X 00017562 

LABELAREAv ■ 39* X 00017564 

MDUMPAREAV * 40* X 00017566 

ESPDISKAREAV B 41* X 00017568 

LOGAREAV a 43* X 000i7570 



♦X00017740 
t**************************#**********#*#**************gQ0Q 17750 

SXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXXOOO 17760 
... „ 00017762 



#CANDEINPUTAREAV * 43# % TSS MCP ONLY 00017572 

,0BJ08INPUTAREAV s 44* X TSS MCP ONLY 00017574 

*TYPE45 = 45# % 00017576 

'TYPE46 = 46* X 00017578 

#TYPE47 » 47# % 00017580 

#TYPE48 a 48* * 00017582 

' 00017600 

XXXXXXXXXXXXXXXXXXX%XXX*XXX*XXxXXXXXXXXXXXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXXOOO 17700 

X***************************************#*****#*******#*#***** 1 »*#******j;oqoi77io 

X* *X00017720 

** MEMORYLINKS *X0OQ17730 

X* *X00017740 

X********** + + *#**i" 

XXXXXXXXXXXXXXXXX! 
X 

X FIELDS OF MEMORY L.INK OF ALL AREAS 00017764 

* 00017766 

FIELD 00017770 

AR^AAVAILF » OU01 % ■ FOR IN-USe AREA' * 1 FOR AVAIL. ARrA 00017780 

,AREASAVEF = 02l0l % * 1 FOR IN-USE SAVE AREA, s FOR OLAy AREA00017790 

,AREATYPEF B 03i06 X TYPE OF AREA (SEE ABOVE) 00017800 

#AREAMIXF « 09t06 % MIX INDEX OF OWNER OF AREA 00017810 

#AREABACKLINKF a 18ll5 % ADDRESS OF PREVIOUS AREA 00017820 

,AREAFWDLINKF a 33H5 % ADDRESS OF NEXT AREA 00017830 

* 00017840 

i VOIDT 00068001 00059000 

X%XXX%XX%X%XXXX%XX%XXX%%XX%%XXXX%%%%XtX%X%X%XX%%%XX%XXXX%XX%XXXXXXXXXXXX0Q0600Q0 
X******************#**********#***************#**#**********#*# # *** A ***«j 00060010 

X* *X00060020 

X* MISCELLANEOUS FIELD DEFINITIONS *X00060030 

X* *X00060040 
I********************************************************************** X00060050 
XXXXXXXXXXXX%XXXXXXXXXX%XXXtXXXX%XXXXXXXXXXXXXX%XXXXXXXXXXXXXXXXXXXXXXXX00060060 

00060070 

FIELD 00060080 

FF a 18*15 X 00060090 

♦CF * 33« 15 % 00060100 

'CTF ■ FF X 00060110 

»CTC * CF X 00060120 

»MSFF * 16*01 X 00060130 

' 00060999 

X 00061000 

X FIELDS OF AlT ENTRY 00061010 

X 00061020 

HELD 00061030 

FILEBIT ■ Oi I Ol X 00061040 

#OWNBIT e 02*01 X 00061045 

'DIMENSIONS s 03»05 X 00061050 

#BLKCNTR * 08*10 X 00061060 

'MOM * 18*15 X 00061070 

i 00061999 

J 00062000 

X FIELDS OF DATA DESCRIPTOR 00062010 

X 00062020 

HELD 00062030 

X FLAGBITF » 00*00 X 00062040 

X OATABITF * 01 101 X ALWAYS OFF FOR A DATA DESCRIPTOR 00062050 



X 

X 



PBIT 
*SIZE 

>MOMADDRESSF 
*ADDRESSF 



X 
X 



* 02101 X 
9 08 : 10 X 

X 
« 18*15 X 

* 33 « 15 X 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 



MISCELLANEOUS DEFINES 



on if descri 
size of arra 
for indexe 
address of m 

IF PBIT IS 
ACTUAL CORE 
IF THE VALUE 
OR EQUAL TO 
DALOc ADORES 
DATA IN THE 
THE PROGRAM. 
THAN 512 THE 
INDICATING T 



1 

2 



PTOR POINT 
Y ROW IF A 
D DATA DES 
OTHER DESC 
N THEN THI 
ADDRESS* I 
OF THIS F 
512 THEN T 
S WHICH CA 
OVERLAY 01 
IF THE VA 
N THIS FIE 
HE STATUS 
NEVER ACCE 
NEVER ACCE 
NEVER ACCE 
WHICH IS 
INDICATES 
PROCESS 
INDICATES 
ERROR WH 
THE NEXT 
CAUSE TH 
NATED. 



S TO AREA OF CORE 

RRAY DESC. 

C, OR NAME DESC. 

RIPTOR. 

S FIELD CONTAINS AN 

F THE PBIT IS OFF TH 

IELD IS GREATER THAN 

HE FIELD CONTAINS A 

N BE USED TO LOCATE 

SK AREA ASSIGNED TO 

lue of the field is 
ld contains a code 
of the area, 
ssed overlay area, 
ssed save area, 
ssed overlay area wh 

assigned to auxmem. 
overlay is currently 
for this area 
0lay had irrecqverab 
en overlaying this a 

access to the area 
e program to be term 



DEFINE 

CURBLKCNTR 
*AITNDX 
>FTF 
>FTC 
♦DELTA 

i 



18 
33 



T 

MfMESS 
AI»TYP 



LBL >* 

iNPUTANKtST 



16 * X 

6 « X 
•18115 # X 
I 18U5 # X 
11 # X 

»* GETSPA 
AGE-ll.CAR 
EDSPACEJ15 
S i* 

:lse pcm[t- 

P(XC 
'PI«{METAl • 

TYpEDSpAC 
A],rFF3t»R 
T 
ASTsEGCOlt 



$ VOIDT 



CE(S-1# SPQUTMSGAREAV+64, 0) + U 

FATYPEF3 I* SPOUTMSGAREAV i 

,SPQUTMSGAREAV)J 

IF MCT].AREATYPEF * CODEAREAV THEN 

MCT+1].CCF] ELSE OjX 
23.AREATYPEF*DUP) ' TYPE7 INTAREAV AND 
H) * TYPE13INTAREAV) OR L « 01 
TYPEDSPACE£513*MDUMPAREAV)]] 

I 513CSIZE1 & SC21U5I33IX 
E£10#LABELAREAV)IX 
l»C IF Tl GTR o THEN Tl ELSE 
YPEDSPACE(32#0BJ0BINPUTAREAV))+2J 
tFF] l» (S«»TYPEDSPACE 

C32»CANDE INPUT AREAV))*2) 



P(PIMIX)) 

Lt»GETsPACE 

INBUFF 

FIRSTC 

ELSE B 



pimtx«*oj 

(a»scratchoirareav*scratchsave)j 
!= getspace<11'i0bufferareav#1)+2;x 
ard l» getspaceu0*cqntr0lcardareav#1)*2jx 

EGlN OUTBUFFOLD «* OUTBUFF t* 

GeTSPACEC60#IOBUFFeRAREAV#1)*2I% 

h := savearraydesc<30#diskheaderareav);x 



00062060 
00062070 
00062080 
00062090 
00062100 
EN 00062UO 
00062120 
00062130 
THE 00062140 
THE 00062150 
LESS00062160 
00062170 
00062180 
00062190 
00062200 
ICH 00062210 
00062220 
IN 00062230 
00062240 
LE 00062250 
REA. 00062260 
WILL00062270 
I- 00062280 
00062290 
00062999 
00067000 
00067010 
00067020 
00067030 
00067040 
00067050 
00067060 
00067070 
00067080 
00067999 
02134300 
02134710 
02205475 
02216000 
02216010 
02216600 
02216610 
02434430 
02434435 
02639000 
03618800 
03618810 
03638500 
03638600 
05804200 
058H460 

05811470 
07086000 

07087000 
07095000 
07095100 
07097000 



ShEAT 1» rMtri=TYPEDSPACE(3l#SHEETAREAV+64)l 

SEGO l« TYPEDSPArE(30»SEGZER0AREAv+64);X 

H la ClDRnWCR] '= [MCSl» 

6ETsPACE(94»ei0R0WAREAV+64#l ) + 233 & 94 

Tl«GETSPAcECl3>C0NTRQLCARDAREAV+64'0)+4; 

SHE*T * [M[F««TYPEDSPAcE(31»SHEETAREAV+6 
SEGO |3 TYPEnSPACE<30>SEGZERQAREAV+64);% 

Cl*TYPEDSpACE(5#MAlNTBUFFAREAV))X 

BEGIn RI«TYpE0SPACE(5»MAlNTBuF'FAREAV)n 
SJ«CMCTYPFDSPACEC3l*SMEETAREAVn] I 30tSIZE3;X 
DLNKl«CMCTYpEDSpAcE(3l#SHEETAREAV)3] & 30[SIZe3;X 
INTRNSC (« tMtlNTL0C|»GETSPACECMAXINT+T17SIZE'INTARRAYA 
BJ8(GETSPACE(9i#I08UFFERAREAV*l)+2) t 90[SlZE3jX 
LOGlNFO»»SAvEARRAYDESC(?0»LOGAREAV);X 

NTH*gEtSPACEC5,MAINTBUFFAREAV + 64,0) + 2; 
TlaGETSPACE(12 t C0NTR0LCARDAREAV+64,0J+4^X 

seg is if mcr3.areatypef * codeareav then mcr*i3, 
else pcmcr-2].areatypef,dup) * typetintareav and pcxch) 
type13intareav) or locn * o; 
buff l« typedspacf(60,heyinbuffareav) ♦ 1; 

fh»b[mtfl«typedspace(temp#olskheaderareav)33 & te 

FH »* CMtFl«TYpEOSPACE(30*OlSKHEADERAREAV)33 & 30 
$TREAM(A#B,Tl«T»«GETSPACEClO,CaNTROUARDAREAV 
Tt»GETSPACE(U5,C0NTR0LCAR0AREAV4.64*0) + 4U 

S fa CMCTYPE0SPACE(3l#SHEETAREAV)3] & 30C8I38U03' 
HOR '* GETSPACE(30»0ISKHEA0ERAREAV#1)*2; 
FpB I* TYpEDSpACE(SEGOC53 INX 1* FpBAREAV)) 
FBl«GETSPACF(SEGot7 3,CCF3xFTRLNG#FPBAREAV#l)+2; 

lbu«*aRRayoescc30,lbleonareav);x 
lbu«arraydfsc(30*lbieqnareav)jx 

SEg0««ARRAY0ESC(30#SE6ZER0AREAV)JX 
SlNF0CMlXJ,tCF3 »» (STACKUOC l« 

GETSPACE(SEGoC33 INX St2l3 INX 64* STACKPRTAREA 

TRpC4UsCMtTI*GFTSPACE(SEGO[n.CCF3#SEGOlCTAREAV*l 

STREAM(0»«DAL0CR0WtMlX3t*SAVEARRAYDESCCDAL0CSlZE*DAL0C 

$ VOID 

STREAMCD «» UVSpACE I* TYPEOSPACECUVSIZE'UVRQWAREA 
MtHDR-23 «« (*P(OUP)) ft JARROWARlAV AREaTYPeH X 
STREAM(Ql«FsROWtMlX3»»SAVEARRAYDESC(4#FSAREAV));X 

TRPt33l»tM[GETSPACE(l#FPBAREAV,l)*233 ELSE X 
BEGIN CARD»C33'153 tn TYPEDSPACEC 1 3,CQNTRQLC 
II»GETSPACE(30,JARR0WAREAV&MIX[CTF3#l)+2' 
It*GETsPACE(UVslZE*UVROWAREAVtMlXtCTF3#i)+2i 

SHEAT i«CM£FI*TYPEdSPACE(31*SHEETaREAV*64)]3 & 
SEGO la TYPEOSpACE(30,SEGZEROAREAV+64)|X 

IF (Mix i» LINK.AREAMIXF) * THEN GO T° McP; 
IF PCLINK.AREAtYPEF'DUPJ • CODEAREAV OR P(XCH) 
TYPE13INTAREAV THEN GO TO CODE; 
LINK.AREATYPEF * TYPE 13INTAREAV THEN X TYPE 



3 & 30CSIZE3; 

size; 

4)33430CSIZEJ 



REAV#l)+233& 



CCF3 ELSE 0; 
* 



mpcsize3;x 
size; 

+64,0)+4); 



Vf 1)) ♦ 2' 

)+233; 

ROWAREAV)>;X 

v)>; 



AR0AREAV)*2; 



30C8*38U03;X 



IF 

IF 



13 INTRINSIC 
OR P(XCH) m 



PCLINk»AREAtYPEF»OuP) » TYPEriNTAREAV 
TVPE13INTAREAV THEN GO TO INTRINSIC* 
IF LlNK.AREATYpEF « DaTAAREAV THEN X OvErLaYABlE 
M[GETSPACF»«T3l a (*PC0UP))&TYPEtAREATYPEF3«MI 

begin tmpi«getspace(fpbptr+etRing»fpbareav,i>+2;x 

HI«[M[TyPEDSPACE(42,DISkMEADERAREAV)33 & 30 [8 I 38 ' 10 3* X 

TUGET$PA«Ef30#DISKHEADERAREAV#l) + 2U 

TMpl»GETSpACEC12»C0NTR0LCARDAREAV+64,5)+4;X 



MCp DATA 
XCAREAMIXF3; 



X07256400 
07257400 
07*33000 
07433100 

07446000 
/08274250 
08275500 
08385100 
08410000 
08881000 
08930000 
09506000 
12672500 
12848500 
14411820 
14533000 
16853000 
16854200 
16854300 
16954200 
18285200 
18286000 
18438120 
18520300 
20026600 
20028700 
20049000 

20049800 
20059100 
20089800 
20110400 
20U6100 
20116200 
20124900 
20127300 
20127400 
20156800 
20169700 
20183610 
20187400 
20600950 
21304000 
21308000 
22069050 
22069100 
22297000 
22303000 

22303100 
22356100 
22386000 
22386050 
22386100 
24400000 
28050800 
28070000 
28288000 
28435000 



LABI«ARRAYDESC(15 
FAJsTYPEDSPaCECTM 

CCAI'SAVEARRAYDES 
FAteTYPEDSPACE((B 

(F 

S«*ARRAYDESC(30,E 

BEGIN MCAtPHA+I 

MCTllnAtP 



BEGIN 
MCTlti 



NT3 
ALP 



IF COBOL> 
MtFIB I 
ELSE 

MtALPHA 

KEY in GETSPA 

KEY l» GETSPA 

Tl >« TYP^OSPAC 

MLA ts CM[Ai«GE 

I l*(Tla 

J JtsGET 
SCRATCHVECJ.CMCGE 
I 10 



^labelareav); 

PlaTEMp+(TEMP 
C(30#ESPDISKA 
UMpFA»-FASZ»* 
ASjr DIV 2)*2* 

spoiskareav); 

3*(CURL0C«.GET 

HA»23t«M OR ( 

LABELA 

Ii typedspac 

HA-2]»*M OR ( 

LABELA 

SEGO«»rM[T 

OR FlBUjtt 

NX NOT 13. ARE 



OIV 2) + 2,DATAAREAV) + lU 
REAVHX 
IF MAX > 128 THEN 128 ELSE MAX) + 

DATAAREAV) + UX 

X 

SPACECBSIZE+4,lOBuFFERAREAV*l)*2)+2J 

QETSPACEC(Tll«MCTi3tSl2E)*«* 
REAV*1H4) & THSIZE3 4 CNTLBITSCFTF 
E(13»LABELAREAV)+2;X 
GETSPACE(CTlt*M[TlJ.SlZE>+4, 

REAv*l)+4) & T1CSIZE3 I CNTLBITStFTF 

YPEDSPACE(62tSEGZER0AREAV)3H30tSlZE 

711] THEN 

ATYPEF I* COBOLFIBAREAV 



St BY JTC • MSA CENTR 

$« DATE 03/17/76* UPD 

$» THIS PATCH CAUSES 

SI THAT WERE LEFT UnT 

St ANALYZER, 



-73.AREATYPEF «■> algolfibarEavj 
CE(3#MAlNTBUFFAREAV + 6a,0)-t-2l 

CE(5#MaINtBUFFAREAV+64#0)+2' 

F(\5jMaINTBUFFAREAV)JX 

TSpACEC 33,MAlNTBUFFAREAV,0)+3]3 I 32CSIZE3JX 

GEtSPACE(J+2#INQUIRYBUFFAREAV#0)+1)+3 AND NOT 3i 

sTyPEDSPAcE(I/MCPTABlEAREAvHT3«*0; 

SPACE(Z»AVTABLEAREAV#l)+2i 

TSPACE(10,SCrATCHDIRAREAV#sCrATCHSAVE)+2 3 3 

CToSlZflJ 
BEGIN 

PfNT4#BL0B,NTl#GETSPACECNTl#STACKAREAv#3) 

AL 

ATE 11/05/76 

TH£ TSSMCP TO TYPE MANY OF THE MEMORY AREAS 

YPED BEFORE. THIS PRIMARILY BENEFITS THE DUMP 



$t******************************************************************** 
S#PATCH NUMBER 156 FOR TSSMCP MARK XVI CONTAINS 5 CARDS. 
IF HEADER«£CF3 GEO 64 THeN forgetspace(HeadeR)^ 
SVQlOT 
SVOIOT 



St BY 
St SOF 

St**** 
S#PATC 

arra 

ARRAY 



ELSE 
JTC - M 
TWARE F 
******* 
H NUMBE 
Y WORKE 
ESPTABC 



DEFI 



P<1> 

SA CENTRAL 
LASH #164 AND 



28451800 
28452600 
28455400 
28456800 
28457000 
28855000 
37406000 
38107000 

];38107100 
38107300 
38205000 

3J38205100 

];38434000 
39304000 
39304500 
39304600 
39305000 
41312700 
41314000 
41323130 
41328600 
44041000 
44153500 
44240840 
4424U80 
44241185 
48052000 

)J48052100 
99990000 
99990100 
99990200 
99990300 
99990400 

**99999999 

12561600 
12572000 
12573000 
12573500 
12574000 



CORRECTION FLASH #190 



********************************************************* 



** 



R 158 FOR 
RSTACK[*3 
*3I REAL 
GETESPOI 
S l« (ES 
HARRYS 
l«= Hi 
!■ 100 
I* 0; 
FOR T «* 
BEGIN 
MC J] 
M[J + 
MOVE 



NE 

I 
I 
I 



TSSMCi CONTAINS 18 CARDS. 
; X DESC. TO OLDWlERDHAROLDS STACK, 
EsPCOuNTj X 

SK i» (Cp(DUP).tCF]-ESPTABttCF3)x8 
PTAB.CCF3+S.C30I153) & SC30I 33i X 
Ta « WORKERSTACK[53#* X STA 
T !■ p(.ESPTAB)) FIXJ X 
J T l« P(.WORKERSTACK); fix; % 

1 STEP 1 UNTIL NUMSTACK 0° 

I* I) X LINK TO PREVIOUS STACK IN Q. 
1] 1* WORDOFEASE; X CLEAR STACK 
(STAN0AR0STACK-2»J+1#J+2)J 



00000000 

00299500 
00399000 
06031000 
06038000 
14344100 
44173200 
44179100 
44179200 
44179250 
44179300 
44179350 
44179400 
44179450 



I I* j; X REMEMBER WHERE THIS STACK IS 

J «* j + standardstack; % compute address of next 

END; 

stackq i» i; % point to first stack in q. 

MOVEC99»It«WORKERSTACK»CCF3#I+l); «TO SPOT POSSIBLE OV 
SI DATE 3/19/76 
SI BY JTC - MSA CENTRAL 
SI 

si this patch causes descriptors to be built for the workerstack and 

SI ESPTAB TO HELP THE DUMP ANALYZER ANALYZE THE MCP SAVE AREAS, 

Jl WW**************************************************************** 

UDlT«U kllUlDFD iCA l-nn >Cfll.D .nkITi IhlC <t( /» * O f\ C 



S#PATCH NUMBER 159 FOR T 

REAL PROCEDURE INPUTSCA 

VALUE NUM»FLAGS, 

REAL MODE, SOURCE 

REAL PROCEDURE INPuTSCa 

VALUE NUM,FLAGS*SF 

REAL MOOE>SOURCf>D 

U««(DEST,[30l3]»DESTt30 

IF u«?l AND SEQMODE XU*l 

THEN XTRU 

BEGIN 

STREAM (AI.OIDEST)J 
BEGIN DI|«DI- 
DSt»2Ll 
AtcDU 

eno; 
p(cdest]»std)^ 
go aut; 

END* 
INPUTSCANI«UJ 
Nlt»INPUTSCAN(MODE,S0Rc 
N1!«INPUTS c AN(MDOE 
DEFINE SeQMODe • IF 

ELS 
NUM|*NUM+INPUTSCA 
NUM|«NUM+INPUTSCA 
BY DJZ"MSA CENTRAL 
SOFTWARE FLASH #175 A 
SOFTWARE FLASH 200 CO 



SSMCP CONTAINS 25 CARDS 

N (MOOE, SOURCE, DEST»NUM# FLAGS* SEQMODE); 

SEQMOOEI 

*dest#num» flags, seqmode; 

n (mode* source* dest,num, flags* seqmode); 

qmode; 

EST, NUM* FLAGS, SeOMODe; 
l33il5])-(lNPTSC,t30(3 3&lNPTSCC30l33U5]); 

WHEN ONLY " «•" LEFT IN BUFt, AND IF SEQMODE 
E, tHE N USER BACKSPACED TO FRONT OF BUFFER. 



i; 

T M 



XMAKE INPUT LOOK LIKE A NuLL LINE 
*";« (SPACE) TO PREVENT CANOE FROM 
XBELIEVING THIS IS END OF SEQ MODE 



,A3*(MtAl3.tFF]-X,C2l8])*FLAGS,0); 

*S0RC*A3*MtAl].CFF],FLAGS*0); 

STATAB.STATIONTYPe^TWX then false 

E (LlNE0lSCtSTA3*TWX AND SEQARRA* t ST A 3 *0 )*t 

N (MODE, SOURCE* J, BUFSZ-Tl* FLAGS* SEQMODE); 

N( MODE, SOURCE* J* BUFSZ* Flags, SEQMODE); 



44179500 

STAC44179550 

44179600 

44179650 

ER 44189600 

99990000 

99990100 

99990200 

99990300 

99990400 

****99999999 

03071000 
03072000 
03073000 
03276800 

03277000 
03277200 
03290600 
03290700 
03290800 
03290810 
03290820 
03290830 
03290840 
03290850 
03290860 
03290870 
03290880 
03290890 
03290900 
03307000 
03313400 
03614600 
03614700 
03618200 
03634000 



SI 
SI 
Si 



**** 



ND CORRECTION FLASH #185 
RRECTION 
$l******************#**#***+**t********************#**************** 
SfPATCH NUMBER 160 FOR TSSMCP CONTAINS 12 CARDS, 

BEGIN 06468000 

IF P(0,RDS) QTR FENCE 06470000 

SVOIDT 06471000 

ELSE C MpLEXSLEEp((B oR REPLYCplMIX3 GTR qR TERMSET( PlMIX ) ) >J 06472100 

SVOIDT 06472501 06472200 

IF JARCP1MIX,9].SYSJ0BF NeQ LlBMAlNCODE THEN GO INITIATE; 06473100 

EXIyi P(P&RCWtcTC3,0*RDS*0,XCH*P*PCCTF3*STF); 28101200 

SVOIDT 37180675 

IF CMEMCP1MIX,MLINK133.CCF3 GEQ FENCE THEN 37226100 

SVOIDT 37226150 

SVOIDT 37226500 

SVOIDT 37227500 

$1 BY JTC* KFK - MSA CENTRAL* SOFTWARE FLASH 176 
$1********************************************************************** 

S#PaTCH NUMBER 161 FOR TSSMcP CONTAINS 1 CARD 



BOMBJ* IF 0(J*18 THEN FORGETITJX 
Si BY DJZ - MSA CENTRAL, SOFTWARE FLASH 177 
$1*****************************************************0********** 

$#PATCH NUMBER 162 FOR TSSMCP CONTAINS 3 CARDS. 

IF <NT2»8p).[2»l] THEN XLEFT AT 12626500 
SVOIDT 

BEGIN IF (I0DI»T,C9I24) OlV 55/0 THEN XSPaCE FORW A RD 
SlBY DJZ - MSA CENTRAL* SOFTWARE FLASH 180 

$ I ********************************************************* ******** 
$#PATCH NUMBER 163 FOR TSSMC* CONTAINS 3 CARDS. 
* SET OMIT ■ PACKETS 

ELSE FoRGETSpACE(HOR); 
S POP OMIT 
*l BY DJZ - MSA CENTRAL, SOFTWARE FLASH 183 

$ I ******************************************************* ********** 
*#PATCH NUMBER 164 FOR TSSMCP CONTAINS 16 CARDS. 



07231000 



***** 



12635500 
12638000 
12650500 



***** 



S#PATCH NUMBER 16« F 
REAL ERl#ER2,ER3l LA 

ERH»")«- 
OR SYSTEMFI 
BEGIN ERSYS 
BEGIN ER1«« 
IF TYPe«USe 
BEGIN eRUb 
BEGIN tnitm 
ERR« FORGE 
END ELSE IF 
ELSE IF 
ELSE IF 
ERROR* 

STREAM(AI»t 
DS««2 
3CSII 
By DJZ - MSA CENT 
DATE 05/12/76 
THIS PATCH MAKES 
EXPLICIT BY ADDIN 

1) SYSTEM FIl 

2) SECURITY F 

3) INVALID US 

4) IN USE 

5) NOT ON OIS 
6> SAME FILE. 



OR TSSM 
BEL ERS 

LECcMMt 
t ERlla 
"SAME F 
V AND M 
"SEcURI 
M IN V ALI 
TSPACE( 
0PTN.2 
OPTNM 
OPTn«0 



r.P CONTAINS 
Y SJ 



0]#cmmc13) thenx 
"system "jer2i*"file)«- "j 
i m ;er2»* m le>* m ; go erro 
[0ptn + 2ko thenx 

T"JER2««"Y FILE)"iER3»*"«- 
n «; E R2l«« uSER)* M JX 

optn)>x 

THpN GO ERSYS% P LINE 205 
THEN BEGIN ERll«"lN uSE)"J 
THE N BEGIN ERll»"NOT ON "'* 



GO ERROR END) 
R END 

"J GO ERR 



11190 

ER2'*"* " 
ER2I« H DISK)* " 



CMMt03],ERl«tERn*Bt«C0PTNI«SPACE 

5 LIT " SECURITY MAINT IGNORED (" 

•SI+1J oS'»7 chr);x 

RAL (SUBMITTED BY S. KELLEY * NATAL UNIVERSITY) 



(10)))l 

; si«»er;x 



the "security malnt ignored" mess 
g one of the following reasons to 

E 

ILE 

ER 



K 



AGE MORE 
THE MESSAGEI 



INS 1 CARD. 

NEQ NOT 0) 

BY S. KELLEY - N A TaL UNIVERSITY) 



AND 

***************************************************************** 
#PATCH NUMBER 165 FO 
AND ((MFID E 
BY DJZ - MSa CENTR 
DATE 05/13/76 

this patch will pr 
library tape, prev 
were allocated as 
being placed In th 
all "badisk" files 

NOTE THAT SITES SH 
"BADISK" <MFID>S, 



R TSSMCP CONTA 
QV "BADISK ") 
AL (SUBMITTED 

EVfNT "BAqISK" 
IOUSLY, IF THE 

NORMAL F.IlES* 
E PROPER SPACE 
WILL NOW BE T 
OULD NOT ALLOW 
AS THESE ALSO 



FILES FROM BEING 
SE FILES WERE RE-L 
WITH A VERY SMALL 
. FOR DUMPING PURP 
REATED AS SYSTEM F 

USER FILES TO BE 
WILL NOT BE DUMPED 



DUMPED TO A 
OADED, THEY 
CHANCE OF 
OSES ONLY, 
ILES, 
CREATED WITH 



***************************************************************** 



#patch number 166 for tssmcp contains 18 cards. 
x . c 1 3 1 1 1 file to be added (not on disk) 



20034060 
20034070 

20034080 

***** 

00000000 

20511152 
2051H75 
20511188 
20511190 
20511303 
205U312 
ENDJ20511313 
205U335 
20511340 
20511363 
END 205H364 
EnO;205H365 
20511366 
20511370 
20511400 
20511405 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
99990900 
*****99999999 
00000000 
28*15250 
99990000 

99990100 
99990200 

99990300 
99990400 
99990500 
99990600 
99990700 
99990800 
*****99999999 
00000000 
28200061 



ON DISK 



St 
St 
St 
SI 
SI 
SI 
SI 
SI 



MUSTAOO « DA. (13111** 

X******************************************* 

X CHECK IF FILE 15 TO BE ADDED 

X******************************************* 

t 

IF ADDV THEN 
IF NOT MUSTADD THfN 
IF OU ■ 18 THEN* JAPE TO DISK 

IF DIrECT0RYSEARCh(-MFID*FID*5) NEQ 0% ALREADY 
THEN BEGIN 

LBMESSUBSCmFID)* FID* -67*68* TINuUU3*SPQUTUNlT*LlBMsG); 

if dsed then abort; 

GO NEXTj 
END 
ELSE BEGIN M( FAINFO+ j) . U 3l 1 ] I «1 J MUSTADDt*l E 
F MUSTADD THpN Tl«0 ELSEX ADD FILE NOT ON DISK 
"ON DISK"*"* «» X 68 
BY DJZ • MSA CENTRAL (SUBMITTED BY S, KELLEY - NATAL UNIVERSITY) 
DATE 05/13/76 

THIS PATCH WILL PREVENT THE MCP FROM SCANNING DOwN A LIBRARY 
DUMP TAPE TO FjND A FILE WHEN THE FjLE BEING ADDED IS ALREADY 
DISK, A NEW MESSAGE Is ALSO INTRODUCED, *"**" ""' "" *"""• 
THE PACKET PAGE AND ALSO TO THE 

SI 

MT<UNIT> 



end; 



I 



ON 
TO 

format of the new message isi 



SPO IF 

_ .. message isi 
•<mfid>/<fid> not copied (on disk), 



THIS WILL BE SENT 
LIBMSG IS SET. THE 



St********************************************************************* 
S#PATCH NUMBER 167 FOR TSSMpP CONTAINS 1 CARO, 

IF KlN *7 And FlBtl3J.C28ll0]/ABS(C0B0L) THeN GO FINq EL$E 
SI DATE 6/93/76 



St 
SI 

SI 
SI 

St 
St 



DATE 6/23/76 
BY JTC - MSA 



CENTRAL 



HIS PATCH FIXES OTHeRFIlEOPENOUT SO THAT C0B0L68 PRINTER 

ACK UP TAPES WILL H A VE COrrECTLY FORMATTED PRINT 
»l PILE LABLES WRITTEN ON THEM. 
St ****************************************** *************************** 

s#patch number 168 for tssmcr contains n cards, tape parity 
label errors*oiskerr*ds*x*sw*lp*dk#dx*dxl»oc»ok»li; 
switch type »■ ok*lp>ok»ok»0k*ok*ok*ok,ok*ok; 

X 

x check For a partial word binary read with no parity errors, 

THIS IS ILLEGAL AND IS MARKED AS BEING A PARITY ERROR. 



X 

X 



IF CRtClSI 121 

IF R* 1 15 J 3a 
R*C28t 1) 
SVOIDT 0*167801 

IF U LEO 15 THEN X TAPE I/O 
' DATE 9/i«/76 
I BY JTC - MSA CENTRAL 



AND ?4462) * 90440 THEN X BIN 
t ((8-R.C22I13) AND 7} THEN % 
l« M0D3I0S; X 



READ-NO PAR 

-. . .„ . . ....... ., PART WD XFER 

MARK AS PARlTy ERROR IF MOD III 




28208300 
28270806 
28270807 
28270808 
28270809 
28270810 
28270812 
28270814 
28270816 
28270818 
28270820 
28270822 
28270826 
28270828 
28270830 
28281550 
41493085 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 
99990600 
99990700 

♦99999999 
00000000 
38272000 
99990000 
99990100 
99990200 
99990300 
99990400 
99990500 

*99990600 
00000000 
04125000 
04U8000 
04129520 
04129530 
04129540 
04129550 
04129570 
04129580 
04129590 
04167100 
94129560 
99990000 
99990100 
99990200 
99990300 
99990400 

99990500 
99990600 
99990700 
99990800 
99990900 



Si SINCE IT WILL CAUSE RETRIES TO BE DONE ON SUCH TAPES, 99991000 

$1************************************************************** 9999 1100 

S#PATCH NUMBER 169 FOR TSSMcP CONTAINS 4 CARDS, 

PPCPROCESSl«OJ* 20602855 

IF UNITN0S32 THEN ClDR0w£UNITN0"323 , [ 3 I 53 I «0 ELSE* 20606900 

IF UNITN0"23 THEN READERA . CFF3 I »0 ELSE* 20606910 

IF UNITNO-24 THEN READERB . tFF3 t *Qt % 20606920 

SI BY OJZ • MSA CENTRAL 

$1 SOFTWARE FLASH 201 

Si ********************************************** ************************ 

S#PATCH NUMBER 170 FOR TSSMcP CONTAINS 1 CARDS 00000000 

BEGIN IF XLSTwO THEN XLST t» C M [SPACE (XLSTSZ t«30> ] ] C 30 t8l 38 1 103 ; 20567005 

SI DATE 9/17/76 99990000 

Si BY JTC - MSA CENTRAL 99990100 

SI 99990200 

S« THIS PATCH PREVENTS EXTRA EXCEPTION LISTS FRQM BulLOING uP IN 99990300 

St CORE WHEN PROCESSING REMOVE OR COPY CARDS WITH MULTIPLE 99990400 

SI EXCEPTION LISTS, 99990500 
SI ****************** ****************************************************999 90 600 

S#PATCH NUMBER 172 FOR TSSMCP CONTAINS 9 CARDS. 00000000 

AOECK * 0; FlRSTnRSEC * 07108100 

* 07108999 

* 07109001 
BEGIN LABEL TRYAGAlNj 20289030 

S 20289330 

X»w6l M[BUF+l73»«Oj 20289335 

1291 GO TO EXTERNAL* * 35 • SPECIAL INTERRUPT 460U500 

» 301 GO TO EXTERNAL; % 36 - DKA READ CHECK 46012000 

1311 GO To EXTERNAL* X 37 - DkB READ CHECK 46012500 

Si BY DJZ • MSC DETROIT 99990000 

SI DATE 11/29/76 99990100 

S| THIS PATCH ,.# 99990200 

Si 1) REMOVES SOME REDUNDANT CODE FROM PROCEDURE "C0M23»; 99990300 

Si 2) REMOVES UNNECESSARY LABEL IN PROCEDURE "PRlNTTHECOvER"* 99990400 

SI 3) PREVENTS SYSTEM HANG IN "DO UNTIL FALSE" LOOP WHEN DISK 99990500 

SI READ CHECK IS DETECTED. THIS WAS ORIGINALLY INTRODUCED IN 99990600 

SI TEMPORARY PATCH #202' MARK XIV SYSTEM RELEASE, 99990700 

SI ****************** ****************************************************9999999 9 

S#PATCH NUMBER 173 FOR TSSMCP CONTAINS 2 CARDS, 00000000 

XB5700 TS-MCP M a R K XVI. 0,172 05/11/77 OOOOlOOO 

^tfa** 00005040 

SI BY DJZ - MSC DETROIT 99990000 

SI DATE 05/11/77 99990100 

$1 THIS PATCH UPDATES THE MARK LEVELS IN THE SYMBOL FILE, 99990200 

Sl**********************************************************************99990300 

S#PATCH NUMBER 201 FOR TSSMCP CONTAINS 005 CARDS 00000000 

IF Us30 THEN 04129100 

BEGIN MtPl53*C3««R| 04129200 

DCIOFINISH(R); 04129300 

END; 04129400 

IF (EI«CMtP153+C3l*RKC26l73)+(Vl*T.C5l83) NEO THEN 04130000 

SI THIS CHANGE CAUSES THE RFSUlT DESCRIPTOR OF EACH I/O TO BE 00000002 

Si STORED INTO MCP153+I/0 CHANNEL NUMBERS, 00000002 

SI 00000002 

SlBY JCF 00000002 

SITR .... 00000002 

SlDATE 3/6/73 00000002 



St ***************** ************ 

$#PATCH NUMBER 202 FOR TSSMcP.X 

,MEMT06 ■ TOGLE. 

IF CMEMCWAITST0RE1#0]J 

IF NOT MfMTO 
DEF T NE ST0REDY(ST0RE0Yi»ST0RED 

MfMT0G»«St0RE0V2 
MeM[ST0REdYi#03.[ 
STOREDY(0,0); 
ST0RE0Y(0,1); 

STOREDY(O'O) 

ST0REDY(0»1) 

BEGIN WAITSTORE(0)J STOREDy 

STOREOY(O.l); 

WAITSTORE(PlMlX); SToREDYCPl 

STOREDY(PlMlx»i); 

waItstorecpimix); storeoycpimi* 

ST0R f DY(PlMlX»l)' * FREE MeMORy 

waitstorecmix); storedyj 

STOREOY(MlX, 1)1 
ST0REDY(O,0)> 
ST0REDY(0*1)J 
AGAIN! WAITSTORE(MIX); S 

STOREDY(MiX>l)i 

waitstoRe(pimix)j stor 

STOREDY(PlMlX*l)i 
MEMTOGI»i; 

sithis patch allows cell zero t 

$!<AFTER INITIALIZE), in ORDER 
$« USED f MEMTOG* RATHER THaN M 
Si BELOW THE FENCE. WItH THIS 
StMUST BE MADE AS"STOREd y < MlX>T 
SIOF THE PROCESS AND TQG IS ElT 
Si 

SlBY AMS 
S«Tr 1790 
StDATE 3/6/73 

SI***************************** 
*#PaTcH NUMBER 203 FOR TSSM C P.X 
BOOLEAN OKSEGZEROwRlTE* 

IF <P<I0DESC.[3I5 

dkbnodfx 

*DUP) * $ 



************************************ 



'P20* 



V2 CONTAINS 25 CARDS 

[43llJ#*MEMT0GMASK 

.CCF3«0 THEN 

G THEN SLEEPCCTOGUE]*MEMTOGMASK)ELSE 

Y2)« IF[MEMCST0REDY1,0]].CCF3«0 ThEN 

ELSE 

1 7il1t»ST0REDY2#j 



I 
I 

<o*o); 
mix*o)J 

,0)1 

TO ALLOW "ARTN M TO Be BROUGHT IN 
MIX*0)J 



tqred¥<mix,0); 
edy<pimix*o); 



BE MONITORED FoR INVALID WRITES 

TO ENABLE THIS* * NEW TOGLE IS 
t03.Ct7ll3# TO INTERLOCK MEMORY 
PATCH REFERENCE TO STOREDY 
OG)J"> WHERE MIX IS THE MIX INDEX 
HER OR It 



* SET OMIT 

* POP OMIT 



************************************ 
V2 CONTAINS 29 Ca r DS 



] 



* Plft OR PCXCH 



) * 06) A 
NOT lODESCtt2 
(((PCMtlOQESc 

c(pcxch) eqv 
not oksegzero 
bybyc«seg 
oksegzeRowritei-true; 

OKSEGZEROWRlTEl*FALSEi 

oksegzerowritei*true; 

OKSEGZEROWRITEt'FALSEl 
OKSEGZE R OWRITEl»TRuE* 

oksegzeROwritei-falsej 

OKSEGZEROWRlTEl'TRUEJ 



ND 

411] AND 

t CCni#DUP> EQV 0)»NOT 0) OR 

32)»N0T 0)) ANO 
WRITE THEN 
MENT ZERO 0VERWRITE*"#23); 



************* 

00080500 
00093110 
ELSE00093120 
00093400 
00093410 
00093420 
02396130 
02396500 
02434490 
02434530 
09617000 
09624000 
18841400 
18843500 
18843800 
18845000 

20119300 
20120300 

21032000 
21093000 
24309000 
24313000 
29544000 
29548000 
44114100 
90000004 

90000005 
90000010 

90000015 
90000020 
90000025 
00000002 
00000002 
00000002 
00000002 
************* 

00422100 
04004H0 

04004119 
04004120 
04004121 
04004130 
04004140 
04004150 
04004155 
04004160 
04004170 
05665399 
05665401 
06059659 
06059661 
09645999 
09656001 
09682609 



OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

OK 

*lTH!S CHAN 

SlTO HANG I 

SlABOUT TO 

$1 

$IBY JCF 
$ITR 1766 
SJDATE 3/6/ 



SEGZeROWRITE|«FA|_SE; 

SEGZEROWRITEiwTRljE) 

SEGZFROWRITEi«FAlSE; 

segzerowritei'True; 

SEGZeROWRITEI"FALSEJ 
SEGZEROWRITEi-TRuEJ 

segzeRowritei»false; 

SEGZeROWRITEihTRuEI 

segzerowritei*fai.sei 

SEGZEROWRITEi»TRuEI 

SEGZeROWRITEi-FAlSE; 

GE IS PROVIDED FOR DEBUGGING PURPOSES AND CAUSES THE 

N A "DO UNTIL FALSE" LOOP WHENEVER DISK SEGMENT ZERO 

BE UNEXPECTEDLY nVERWRITTEN, 



-■- - - -• 73 

Si************************************************************* 



SfPATCH NUMBER 



CONTAINS 3 CARDS 

o) and blen * 20 then 

OR TWO(U); 



301 FOR TSSMCPtXV2 

if mode «■ cm des 

savfword t. saveword 

CNTCTL »» DlREC »■ Oj 

this patch allows thf reading of pure binary card input* 
if the file is declared as alpha with a buffer length 
of 20 words, also the card reader will be marked saved 

WHEN THE PROGRAM CLOSES T H E FIlE, CARE SHOULD BE TAKEN 
WHEN USING THIS FEATURE S*NCE A "QEND" CARD WlLL NOT 
BE SEEN BY THE SYSTEMt IT IS THE PROGRAMS REsPONClBlLlTY 
TO DETECT WHEN THE EnD OF THE FILE HAS OCCURRED. 



SI 
St 
SI 

St 

Sl 

SI 

St 

SI 

$tBY JCF 

StDATE 3/6/73 

St ************************************************** *********** 

S#PATCH NUMBER 3O2 FOR TSSMCP CONTAINS 049 CARDS 

REAL RESULT « •«; 

BOOLEAN ZEROTIMEOUT; 

ZEROTlMEOUTl»N.t32H3i 

N.t32«ll«a0j 

IF ZpROTlMEOUT THEN 
BEGIN 

RESuLTt*2; 

stream(d««a,ccf3); 

ds1«8 lit «time3 "j 
go to return; 
end; 

STREAM(Tt««CC' , EN0">&Cl2)t24|42l63)lA2); 
BEGIN SH*A2; DH«LOC T) DTt-DI+A; 

IF 4 sc NEQ Be thfn tallyi*i; 

TI*TALLY1 

end; 
resulti«poliSh; 

GO TO RETURN' 

IF PAPERTAPE then 

BEGIN STREAM (Tt«C"FND M )» SOURCE); 

BEGIN SIt«LOC T; DIHSOURCE; 
SltaSI+5; DH"DI + i; 



09682611 
40249400 
40262100 
42600919 
42600921 
42713949 
42713951 
42730999 
42731001 
44411399 
444U401 
MCP 44419421 
IS 44419423 
44419425 

00000002 
00000002 
00000002 
00000002 

***************** 

38107610 
38107620 
38107700 
90000015 
90000020 
90000025 



00000002 

***************** 

00000000 

03292300 
03296250 
03296300 
03296350 
03297410 
03297415 
03297420 
03297425 
03297430 
03297435 
03297440 
03307100 
03307110 
03307120 
03307130 
03307140 
03307150 
03317500 
03624400 
03624401 
03624402 
03624403 



end; 

FLAGS 
END ELSE 
BEGIN STREA 

BEGIN 



IF 3 SC*DC THEN 
BEGIN n>IlwDl-3> 

1*4; 



DSl*3 LIT " w ; ENDi 



M(Tl»( M ENO")ISOURCE); 
SIisSOljRCEJ Ol"»LOC TJ 

sn*si + i; di»«di*5; 

if 3 sc neq dc then tally!; 

ti.tally; 



i; 



end; 

BEGIN 



end; 

if polish then go to ce; 



STREa 

I 
B 



$1 
$| 
$1 
$! 
$1 
$1 
$1 
SI 
*# 

SI 
Sj 

SI 

*! 
St 
SI 

si 

*# 

Si 
Si 
St 

*! 

si 

St 

Si 

SI 

*# 

St 



E 

Rl«PQL 
FuAGSl 



THIS PATCH IMPLEM 

TO A REMOTE JOB A 

also the p a Rity l 

time out was spec 



JCF 



M(SoURCE*KlTI»PAPERTAPE); 

F SC'MARK THEN 

EGIN DIl»LOC K; OSl»3 LIT "END"; 

sit*Si + i; oiudi-3; 

IF 3 SC»DC THEN 
BEGIN TALLYU2; KI*SI! OII»k; 
TCDll-DI-3; 

DSl*3 LIT « "); 
END ELSE TALLYI*i; 

no; 

I SHl 

• IF R THEN 4 ELSE 
IF UR.B) AND PAPERTAPE) THEN 4 ELSE 
IF CCR.2) AND FLAGS) THEN 4 ELSE FLAGS! 

ENTS THF E n F BRANCH IF "QEND" 1% TYpED 

s input: 

ABEL WILL BE TAKEN IF D A Ta I? NOT PRESENT 
IFIfD. 



BY 

TR • v * • 

DATE 3/6/73 
PATCH NUMBER 4ol FOR TSSmCP . XVI . 00 
TIMELIMITMAX «• 3600 x S 



CONTAINS ol 
+ 18000 I 



CARDS, FIVE 
S*0J 



03624404 
03624405 
03624406 
03624407 
03624408 
03624410 
03624420 
03624430 
03624440 
03624450 
03624460 
03624470 
03624480 
03624600 
03625300 
03625310 
03625320 
03625330 
03625331 
03625332 
03625333 
03625334 
03625340 
03625600 
03625610 
03625620 
03625630 
00000002 
00000002 
AND A ZER000000002 
00000002 
00000002 
00000002 
00000002 
00000002 
MINUTE SLEEP LIMIT, 
%401-GRK 22013130 



THIS PATCH INCREASES THf MAXIMUM SLEEP TIME A B 0VE THE FENCE FROM 
15 SECONDS TO FIVE MINUTES PLUS ONE MINUTE FOR EACH ACTIVE JOB, 
FAR TOO MANY JOBS GET KILLED AT 15 SECS THAN IS REASONABLE, 



G.R.KENNEDY 25FEB76, 

******************************* 



BROCK U, PATCH 401 
*************************************** 



PATCH NUMBER 403 FOR TSSmCP. XVI , 00 CONTAINS o* CARDS, PREVENT FLAG BIT 
STREAM(BASE); BEGIN 3C0S*L IT"0"J DI*0l+7)| EnD; X403-GRK 

THIS PATCH PREVENTS SYSTEM HANGS CAUSED BY GARBAGE IN SEGMENT ZERO 

IN PROCEDURE change m cp. 

THE CURRENT MCP NAME(S) AND BASE DISK ADDRE5S MaY HaVE THE FLAG BIT 

on (It happened at lease once). 

brock u, patch 403 

""-■ •--• ■ ************************** 



S ON CM, 
09680450 



G.R. KENNEDY 17FEB76, „ 
******************************************** 
PATCH NUMBER 407 FOR TSSmCP .XVI ,00 CONTAINS Ol C ARDS .CONTROLC ARD SCRE 
P<DlRECToRYSEARCH<NABS(CMMEO])#IF CMMtO]<0 THEN "DISK " ELSE 



WUP, GRK 
20606865 



this patch fixes a problem in controlcard which caused the mcp save 
core to graoually increase! the problem was with control card 
errors on compile cards. at "incsc" there was a call on 
oirectorysearch with -cmmcol so as to not return the file headert 
but - compilers have cmmco] negative* so ... 

RECEIVED FROM DREXEL UNIVERSITY BY PHONE ON 16JUL75, 



100CT75. 



BROCK U, PATCH 407 



G.R.KENNEDY _„,_. , _. . , 

********************************************************************** 

-~ "-- ---.--'....- -- --.._..... .« . ~_- . „_ „ SDM qr „ cU „ wQRK# 

9 X410 16212100 
9 X410 16216000 



, 1*************************************************************1 

# Patch number 4io for tssmcp.xvi.oo contains 02 caRds.let h sd' 

JARCMIX#63.tlll]*((TYPE»9) OR CtYPE»19))I XDS«8,So*9, CL*i< 
**X JAR[MlX#63ttllll»((TYPC»9) OR (TYPE»l9))i *DS«8*SD«9» CLM< 

HIS PATCH TO KEYING SHOULD ALLOW «SD»» OR "CL M TO SAVE PSEUDO-DECKS, 
E WILL SETUP THE "sAVE-THg-DECK" BIT BEFORE CALLING TERMINATE* AS 
M THE DCMCP. 



T! 

WE 

IN THE DCMCP, 

G.R. KENNEDY 1 

***************** 

PATCH NUMBER 504 

REAL CPU10 

p(o; 

CPUIO 
MfCPU 
MfCPU 

MrcPu 

M[CPU 
MtCPU 
MtCPU 
STREA 
BEGIN 



END S 
SPOUT 
IF UN 



3JUL 

**** 

FOft 

s+14 

♦ GET 

10*2 

10*3 

104-4 

10+5 

10*6 

10 + 7 

M(I. 

OS* 

OS* 

DS* 

OS* 

I*D 
DS* 
OS* 

DS* 

DI* 
TREA 
ERCC 
ITNO 



BROCK U, PATCH 410 
******************************** 



76, 
***** 
TSSMCP^XVI.OO CONTAINS 22 CARDS, EOJ 

XZERO OUT CPUIO 
(I0»0#l)+2i 

t0rc03) xjob prefix 
torch; xjob suffix 

xjob mix index 

[1]*NEXTM0M)+30)DIV 6o; XCPU TI 
t2l*VECT0R£4 3 + I0TIMEi:n) + 30)DlV 
3*fLCtn-SCtI3)xCHUNKZlZE*CHUNK2 
)* 

for *; sucpuiq; susi+17; 
ds*lIT w / m ; si*sui; ds*>7Chr; 
»} DS*2DEC; i*di; di*di-2; 
0I*U DS«-5LlT"tPST»"; DS*5DE 

i*oi-5; ds*4fill; di*i; 
»iot« m ; ds*5dec; 1*011 di*di- 
; di*i; ds*6lit"*core* w ; 

t*oi* di*di-5; ds*4fill; 
s^lit"*"; 



SPACE 
3*VEC 
3*VEC 

i*i; 

3*CCS 
3*<CS 
3*SC3 

cpuio 

5LIT* 

7CHr; 

LlT"» 
FILL; 

U 

•SLIT" 

4FILL 
5DEO 

i; d 
m; 

puio, 

XO TH 



UNITN0*64); 
EN 



******* 

JOB STA 

X504 

X504 

X504 

X504 

X504 

X504 

ME X504 

60;x504 

ize; 

X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 
X504 



c; 



5; 



***** 

TISTI 

-GRK 

-GRK 

• GRK 

• GRK 
-GRK 
-GRK 

• GRK 

• GRK 
X504 

• GRK 

• GRK 
-GRK 
-GRK 
-GRK 
-GRK 
-GRK 

• GRK 
-GRK 

• GRK 

• GRK 

• GRK 

• GRK 



CS.GRK, 

14351306 

14355060 

14413020 

14413030 

14413040 

14413050 

14413060 

14413070 

14413080 

14430031 

14430032 

14430033 

14430034 

14430035 

14430036 

14430037 

14430038 

14430039 

14430040 
14430041 
14430042 
14430043 



THIS PATCH PROVIDES THE EOj JOB STATISTICS MESSAGE SIMILAR TO 
THE DCMCP MESSAGE* IN aODITTION* MAXIMUM CORE USAGE IS PROVIDED* 



SPOUTER DOCUMENTATION 

cstasi:itstx*tsxaaii«s 



SPOUTER (MESSAGE. UN ITNO* TYPE) 

i3s:333cssa>itsisi*asixsiB8c 



DEFINES I SPOUT(MESSAGF) a SPQUTER(MESSAGE» 0# 1 ) 
......... SPOIJTIT(MESSAGE.TYPE) * SPOUTER< MESSAGED* TYPE > 



NOTES I 



--CONDITION-- 
UNITNO TYPE 
N/A 
N/A 64 
N/A NEG. 



MESSAGE DISPATCHED 

SPO PACKET LOG 

N Y Y 

N Y N 

N Y N 



COMMENTS 



FOR PACKET PAGE ONLY 



SI 




St 




SI 


G.R. 


St 


THIS 


St****** 


s# 


PATCH 


St 


THIS 


S l 


WOULD 


St 


A) RE 


Si 


THIS 


Si 


COMMA 


St 


NATAL 



N/A 



TRUE 



KENNEDY 10JUN76, BROCK U. 
PATCH IS NEEDED BY PATCH 509 



PATCH 504 



**************************************************************** 



S I ****** 
S# PATCH 



508 FOR TSSM 

REMOVES A POT 

OCCUR IE A F 

MOVED OR B) C 

ALSO PREVENTS 

ND IS ENTERED 

U, PATCH 508 

IF T G 

T*DI 

P( 

IF T G 

************* 



cp.xv.3 contains 4 c 
entIal invalid link 
ile were removed whi 
hanged! 
a filf hold situati 

FROM A REMOTE TERMl 

EQ 64 THEN 

RECT0RYSEARCH(CMMC03 
XCH)"30)tiU7U3»4)* 
EQ 6ft THEN 
******************** 



ARDS, PREVENT FlLEHOLD FOR "CHANGE" 
PROBLEM IN PROCEDURE LIBCC WHICH 
LE IN THE PROCESS OF BEING 



ON FROM OCCURRING WHEN 
NAl. 



A CHANGE 



>cmmc13*cp(unitn0#dup)«25 or 
end; 

******************************* 



2057ft9l7 
20577826 
20577827 
20577828 



NUMBER 509 FOR TSSMCP.XVI, 
IF P THEN MAKE|_OGCMESSAGE, 
END; IF TYPE LSS THEN T 
SPOUTITCLOGINFO' 

6ft); 
spoutitcvector 

IF NOT 



00 CON 
ABS(TY 
YPE>*6 



TAINS 

pe)j; 
ft; 



THEN 



INX 0* 

( (MCC 

( CM 

CM 

f(LlN 

AND 
-EOJK 



ELSE 
IP0UTER(T*UnITn6, 

IF NOT C (JARCMjX*n 

C (JARtMIX# 

(JARCMIX* 

THEN (((NOT SCO]) 

AND BOJMESS AND I OR 



PUIO+3 
CCPUIO 

CCPUIO 
K OR C 
(NOT J 

j; 

EQV " 
03 EQV 
03 EQV 
.C2tl3 

BOJK) 



3 EQV 
+2] EQ 
+ 23 EQ 
ANDYME 
AR9),C 



17 CARDS, PRNPBT/LDCNTRL BOJ/ 

X509-GRK 021 
X509-GRK 021 
X509-GRK 127 
%509-GRK 127 
X509-GRK lftft 

"DISK ")bNOT AN0X509 14ft 

V "PRNPBT ">«NQT 0RX5091ftft 

V M LDCNTRL")«NOT 0))J509 lftft 
SS) AND EOJMESS X509-GRK 
2»1] OR EOJK) 



DISK 

"PRNP 
LDCN 

OR CA 
ELSE • 



M )»NOT 
BT ")*NQT 

tRL w )*not 

nDYMeSS) 

bOjk); 



and 
or 

0) ) 



%509-GRK 
%509-GRK 
%509-GRK 
%509-GRK 
%509-GRK 
%509-GRK 
%509-GRK 
%509-GRK 



lftft 
144 

lftft 
201 
201 
201 
201 
201 
201 



EOJ 

3ft000 

34005 

OftOOO 

04100 

30000 

30002 

30004 

30006 

30008 

30010 

30012 

04200 

0*300 

0«310 

04320 

04330 

04340 



THIS PATCH SUPPRESSES AlL "BOj" AND "EOj" SPO MESSAGES FOR 
"PRNPBT/OISK M AND "lDCNtRL/OISK", THIS SHOULD HELP ELIMINATE 
SPO "CLUTTEr" 

NOTE THAT SPOUTER H A S BEEN MODIFIED TO LOG NEGATIVE MESSAGE TYPES 
B IJT NOT SPOUT THEM (SIMILAR TO TYPE 64 - BUT TYPE IS RETaINED>i 



G.R.KENNEDY 31M 

THIS PATCH USES VA 

CORRECTED TO INCLU 

SEE ALSO DREXEL U. 

******************* 

patch 5io for tssm 
this patch correct 
wheRe the variable 
"acesbit" and "ccc 
value of the typed 
procval. this 6au 

Q LOAD FROM xYTAPE 
Q COMPILE PROG/NAM 
WOULD RESULT IN «C 
PROCEDURES ARE NOW 



AY76, BROCK U, PATCH 509 

RUBLE CPUIO WHICH Is DEFINED IN PATCH 504 

DE BOJMESS BY DR, UCSC 

PATCH 716 
*************************************************** 
CP^XV.3 CONTAINS 2 CARDS, INITIALIZE TYPEO PROCEDURES 
S AN ERROR INTRODUCED BY PATCH NUMBER 24 TO MCP.XV 

PROCVAL WAS NOT INITIALED IN TH£ PROCEDURES 
OMPILE". WHEN RETURNING FROM THE PROCEDURES THE 

PROCEDURES WAS TAKEN FROM THE LAST VALUE OF 
SED ODD ERRORSi EtG. THE CARDSI 

ANY/NAME 
E FORTRAN 
ONtROL CARD ERROR AT FORTRAN", THE TYPED 

INITIALIZED. NOTEl- ACESBIT NOW CCSET 



St NATAL U. PATCH 510 

CCCOMPiLE*0; 20584340 

CCSET*0; 20711100 

St ****************** **************************************************** 
S# PATCH 511 FOR TSSMCP.XV.3 CONTAINS 4 CARDS, "PC" WITH 65 JOBS ON DISK 
Si THIS IS TO FIX THE CASE WHERE THERE ARE 65 JOBS ON DISK AND A "PC" IS 
S| DONE. PRIOR TO THIS THE MESSAGE WOULD COME OUT ASt- 65 JOB* #NNNN 
St WHERE H NNNN" WAS THE NUMBER OF THE LAST DECK ON DISK. 
St NATAL U. PATCH 511 

SI*LOC Til 07295100 

IF SC/"0" THEN GO TO AQ 07295102 

ELSE Sl*SI*i; 07295104 

AQt BEGIN DS*3 LlT "S* "J 07295160 

St********************************************************************** 
i* PATCH 512 FOR TSSMCP.XV.3 CONTAINS 7 CAROS. ERRQR PROGRAM PARAM CARDS 
$1 THIS PATCH REARRANGES SOME CODING IN PROCEDURE PPC FoR CLARITY AND 
$1 GENERATES A CONTROL CARD ERROR FOR IDENTIFIERS ON PROGRAM PARAMETER 
St CARDS WHICH ARE UNDEFINED. 
SI NATAL U, PATCH 512 

ELSE IF TYPE*COREV THpN 20504500 

BEGIN X[20] * TPNO DIV 64; 20505000 

DO UNTIL C 100 ♦ 5CAN)*MAXV OR IOD»PERlO; 20507000 

IF IOd»MaxV THEN PC CX C203 3 > IOR ) ELSE GO TO DOWN* 20507100 

END 20507200 

ELSE IF TYREiPRiOR AND TYPESSAVEV THEN 20507300 

X£18+TYPE»PRI0R3*TPN0 ELSE GO TO ERROR* 20507*00 

St********************************************************************** 

s# patch 5i7 for tssmcp Contains 3 cards, overlay disk space used up 
si when a program has exceeded its overlay disk space* this patch will 
s» cause the mcp to issue the message w aRRay olaY space USED UP" WHEN 

St DS-ING THE PROGRAM, INSTEAD OF "INVALID ARRAY SIZE ION", THE LATTER 

St MESSAGE IS MISLEADING. 

SI By STEVE KELLEy* REQUESTED BY NATAL U, MAY, 1974 

St NATAL U. PATCH 5l7 

St MODIFIED FOR TSSMCP flY DR, uCSC JAN. 17* 1977 

TERMINATE (MIX* 99CCTF])* 06411010 

"8ARRAY ", "80LAY S"> % 99 41445700 

"SPACE U"* "6SED UP"» % 41445800 

St********************************************************************** 

s# patch number 519 for tssmcp.xvi.oo contains oi cards. enable "file in use« ok, 

BEGIN T*VWY4V0Kt36|42t6H(VIFxA,[3tn)t30l42l6]; 1519-GRK 18025000 
I 

I THIS PATCH ENABLES "#FlL IN USE" SITUATIONS TO BE "OK-ED". 
t PREVIOUSLY (EXCEPT FOR iJBmAIN) THE ONLY ALTERNATIVE WAS "OS". 
I 
t G.R.KENNEDY 30JAN76, BROCK U, PATCH 519 

1 SEE ALSO UCSC PATCH 815 

l********************************************************************** 

# PATCH 521 FOR TSSMCPixV.I CONTAINS 17 CARDS, FI X PROCEDURE "CCSET" 

I THIS PATCH FIXES THE MESS THAT PROCEDURE CCSET Is IN, 

I THE PROBLEMS FIXED AREl 

I A) FILE HEADERS OF AlL FILES REFERENCED BY THIS PROCEDURE ARE LEFT 

t . IN CORE, 

I B) DIRECTORY WAS BEING UNLOCKED IN MANY CASES WHEN IT WAS NOT LOCKED 

t BY THIS PROCEDURE! 

I C) DISK HEADER WAS BEING WRITTEN BACK UNALTERED AT LINE 20739000 

I INSTEAD OF A FORGETSPaCE ON THE HEADER. 



SI NATAL U. PATCH 521 

BEGIN T*2J GO TO 1..1; END; 20730000 

BEGIN FORGETSPACE(T); T*U GO SKIP; END) 20739000 

4 VOIOT 20739100 
$ VOIDT 20739200 

ELSE BEGIN 20769000 

S SET OMIT « SmAREDISK 20769100 

UNLOCKOIRECTORY; 20769200 

S POP OMIT 20769300 

lBMESScCMMt23*CMM£3]#-Cll+T0G)><»l#0#SP0UTUNlTM>J 20769400 

END; 20769500 

EORgETSPACEcT); 20769600 

else begin 20771000 

$ set omit » sharedisc 20771010 

unlockdirectory* 20771020 

$ POP OMIT 20771030 

END; 20772050 

5 VOIOT 20772301 20772100 
$!*****************#* *************************************************** 

S# PATCH 523 FOR TSSMCP.XV.3 CONTAINS 1 CARD. "RESERVE DISK REMOVED" SPO ONLY 

$i this patch m a kes thf "** reserve disk removed" message go to the spo 

Si ONLY. PREVIOUSLY IT ALSO WENT TO THE MESSAGE PAGE FOR THE JOB. 
St NATAL U. PATCH 523 

SP0UTER(Z>25#CN0T LIBMSG) AND 1 ) J 06353660 



jrui rn + w" iu T n »5» .fc»fc" |nuy«n i"t vwn"ti<i +r 
)R A SET OR RESET CONTROL CARD* THE FIRST WORD 
), RESULTING IN A FURTHER CONTROL CARD ERROR. 
ALSO FIX THE CASE WHERE A SET OR RESET CONTROl 
\H EXECUTE CARD. THE SET OR RESET WAS BEING Ti 

l b a uCrr b r a on 



Si RECOGNIZED, 

St THIS WILL ALSO FIX THE CASE WHERE A SET OR RESET CONTROL CARD 
St FOLLOWED AN EXECUTE CARD. THE SET OR RESET WAS BEING TAKEN AS 
Si PROGRAM PARAMETER CARO, 
St NATAL U. PATCH 527 

S| MODIFIED FOR TSSMCP BY DR> UCSC JAN, 17» 1977 

CONTROLA' IE (T < FILEV OR J > COBOL? AND ACCUMCOJ t CMPLR THEN 20604300 

IF T GEQ UNLOCKV AND T LEQ RESETV THEN GO TO FINIS 20604350 

IF (T>PACKET> AND (TIRESETV) AnD (T'RUNV) THEN 20608078 

St********************************************************************** 
S# PATCH 528 FOR TSSMCP CONTAINS 1 CARD, TRY DISK SPACE AFTER RESERVES REMOVE 
St THIS CAUSES ANOTHER ATTEMPT TO GET DISK SPACE AFtEr RESERVE DISK IS 
S| REMOVED INSTEAD OF SPOUTING NO USER DISK AND FORCING THE OPERATOR TO 
St DO AN "OK" FOR THE JOB. 
St NATAL U. PATCH 528 

St MODIFIED FOR TSSMCP BY OR* UCSC JAN, 17# 1977 

FQRGETSPACECBUFF); PCXIT)* 




*« THIS ALSO FIXES THE CASE WHERE jut IDT IS OF THE FUR 
St PREVIOUSLY* THIS WOUlD A L SO HAVE GIVEN An "InV KBD". 
$1 NATAL U. PATCH 534 



08739000 
08739500 
49500 



IF Sc*" » THEN GO LU END* 087 

IF SC'"* H THEN BEGIN SI*sl+i; GO L5J END* 087 

IF Sc* M ** THEN BEGIN TALLYMj GO EXIT* END; 087 

$ I *********************************************************** *********** 
$# PATCH 535 FOR TSSMCP.XV.a CONTAINS 23 CAROS. Fix PROCEDURE CHANGEOPTION 
$1 THIS PATCH FIXES SOME BAO CODING In PROCEDURE CHANGEOPTION WHERE THE 
I SCAN MAY GO PAST THE END OF THE INPUT BUFFERt IT IS A RE-WRITE OF 
I THE SCAN PORTION, IT ALSO MAKES THE USE OF THE WORD "USE" OR "U" 
I OPTIONAL IN THE SO OR RO WlyH THE OPTION MNEMONIC <AS WITH THE OPTION 
I NUMBER), 
I NATAL U, PATCH 535 

L0» 5l*BUFFJ 08634000 

Li* IF SC* H " THEN BFGlN SI*SI*U GO TO Ll 1 END* 08635000 

IF SC<"0" THEN 08636000 

IF SC*"«-" THEN 08637000 

BEGIN TALLUOJ TOTALLY; OI*LOC Tj 08638000 

8CIF SC*" " THEN JUMP OUT ELSE 08639000 

IF SC«"*-" THEN JUMP OUT ELSE 08640000 

IF SC*"» M THEN JUMP OUT ELSE DS*CHR)J 08641000 

BUFF4.SIJ SUOPTERJ 08642000 

63CDt«-L0C Tj 08643000 

IF 8 SC»DC THEN JUMP OUT TO L2 ELSE 08644000 

IF SC*"* W THEN JUMP OUT TO LO ELSE TALLY«.TALLY + 1 )J08645000 

GO To L3J 08646000 

L2* if Sc*"* M then go to lo; os647ooo 

END ELSE 08648000 

L3» TALLYM8 ELSE 08649000 

BEGIN DULOC Tj SUSI + IJ 08650000 

IF Sc<"0 M THEN BEGIN S X «• S X *• 1 J DS*1 OCT; END 08651000 

ELSE BEGIN SI*SI-1J DS*2 OcTj ENDJ 08652000 

TALLY«-47j T(TALLY«-TALLY*63 ) J 08653000 

ENDJ 08654000 

totally; si*loc t; di*-rj ds«-wdsj 08655000 

* VOIOT 08656000 

$|********************************************************************** 

$# PATCH 538 FOR TSSmCP.XV,3 Cq N TAInS 2 CARDS, FIX TIMING PROBLEM WITH PURGE 

$i this patch corrects a timing problem with a programmatic purge of a 

si tape file, the purge is handled by an independent runner which has 

st to wait until the tape has rewound. if a program closes file "a/b" 

st with purge and then tries to open file "a/b% if thg purge has not 

st occurred* it may try to grab that unit (see flndoutput * 37027000). 

st the prntable still contains the pointer to the top i/o descriptor* 

st the space for which has already been forgotten* so that it may pick 

st up garbage. this is fixed by setting the mix index of the program 

Si ASSIGNED TO THE UNIT TO ZERO IN THE rDCTaBLE BEFORE STARTING THE 
St INDEPENDENT RUNNER TO PURGE THE TAPE. 
SI NATAL U. PATCH 538 

BEGIN RDCTABLECU].t8l6]«-0l 38788500 

FORkCP(,PURqEiT)*U, •2*128*1) END ELSE SETNOT INUSECU* ) I 38789000 

$t********************************************************************** 
S# PATCH 539 FOR TSSMCP.XV.3 CONTAINS 2 CARDS. PURGE OF TAPE AFTER CLLP* 
St THIS PATCH CORRECTS THE CLLP* WHEN PRINTING FROM A BACKUP TAPE WITH A 
St W/RlNG. THE TAPE IS NOW REWOUND AND PURGED CORRECTLY. PREVIOUSLY* 
St THE PURGE DID NOT TAKE PLACE. PRIOR TO THIS PATCH, pRNPBT/DISK 
St REWOUND THE TAPE AND STARTED AN INDEPENDENT RUNNER (PUR6EIT) TO DO 
SI THE PURGE. TERMI NALMESSaGEA VIA UNHOOOUE FOUND THE TAPE IN USE BY 
St PRNPBT/DISK FROM RDCTABLFCI].C8I6] AND SET THE UNIT NOT READY IN 



St LABELTABLE («Plia)p WHEN THE REWIND WAS COMPLETE* STATUS FINOS THE 

$1 TAPE NOT READY A N D FnRGETS THE PURGE* LEAVING PURGElT UNLINKED In 

St CORE WAITING ON AN I/O CnMP|_ETE. (UNIT SAYS NO I/O-S BUT IOQUE SHOWS 

St I/O-S FOR WHICH THE SPACE HaS NOT BEEN RETURNED). 

St NATAL U. PATCH 539 

begin RDCTABLFtUNiT].[8t6]*o; 12528400 

END 12528600 

st****#***************************************************************** 

S# PATCH 540 FOR TSSMCP CONTAINS 1 CARD, FIX "lL« FOR «#N0 FIL ON DISK" 

St THIS PATCH CORRECTS THE RESULT OF AN "IL M INPUT MESSAGE IN REPLY TO 

S| A "#N0 FIL ON DISK" CONOlTlnNt PREVIOUSLY* IF AN "ILCD*" WAS INPUT* 

St A SYSTEM HANG RESULTED, THIS WAS BECAUSE THE TEST WAS FOR AN ACTUAL 

St UNIT RATHER THAN ALL UNITS, 

St NATAL U. PATCH 540 

St MODIFIED TO USE MAqIC NUMBER 35* BECAUSE TSSmCP DOES NOT HAVE 

St PSEUDOMAXT, OBSERVE ON |_INE 00277000 OF TSSmCP THAT TINUC35] • DATA 

St FOR THE LAST PSEUDO READER. BY DR* UCSC JAN, i7* i977 

IF CSH*T2«.REPLYtplMlX3.CFFl) > 35 THEN X lL 06463380 

$1********************************************************** ************ 

$# patch 543 fo r tssmcp.xvi.o contains 13 cards, fixes to new libmaIn 
s t this corrects a number of problems in the new llbmaln/di sk. 

St li IF MORE THAN ONE F*CEPTI0N LIST aP p EaR5 WITHIN ONE CONTROL CARD* 
St THEN THE SPACE FOr ALL EyCEPT THE LAST IS NOT FORGOTTENi 
S« FIXED AT 20570070 AND 20573350, 

St 2. IF THE EXCEPTION |JST CONTAINS MORE THAN 13 FILE NAMES AND THERE 
St IS AN AS CLAUSE* THEN A CONTROL CARD ERROR MAY OCCUR EVEN THOUGH 
Si THERE REALLY IS NOT OnE. THIS IS BECAUSE THE ORIGINAL FILE N AME 
St HAS BEEN OVERWRITTEN RY THE EXCEPTION LIST. FIXED AT 20569930 ETC 
St 3. FIX TO USE DEFINES RATHER THAN CONSTANTS. 
St NATAL U. PATCH 543 

IF T Gf.0 COPYN AND T LEO LOAD THEN 20566807 

IF T GEO COPYN AND T LEO LOAD THEN 20566822 

Ti,C46tn*H0LD3*(CN«EQUAL)* 20569930 

IF H0LD3 THEN PROG[ CNT 3 « »-l ELSE 20569935 

IF CN GEO IDENT THEN PROGCCNT) * *ACCUMC q3 ELSE GO PQWIEJ 20569940 
Tl,r47tn*H0LD3*((CN*SCAN)«sEQUAL)l 20569960 

IF H0LD3 THEN PROGt CNT+U t«"l ELSE 20569965 

FORGETSPacECXlST); XLSTt«OJ 20570070 

IF CCN«-SCAN)*EQUAL TH EN IF Tl.[46tl] THEN 20570130 

ELSE IF CN GEO IDEnT ThEN IF T1.C46UJ T H EN GO POWiE 20570150 

IF (CN*SCAN)»EQUAL THEN IF Tl THEN 20570190 

ELSE IF CN GEO IDEnT THEN IF Tl THEN GO POWlE 20570210 

IF XLST NEQ THEn BEGIn FqRGETSPACECXlST ) I XLSTt«0* EnD* 20573350 
t ********************************************************************** 

# Patch 548 for tssmcp.xvi^o contains i card, wrong fib check in findoutput 
- this patch prevents findoutput from checking on a non-existent fib. 

THIS SHOWED UP BY USlNGt 

CC COPY ■/■ FROM A TO A; END 
WHERE THE SOURCE TAPE HAD A WRITE RING, lIBmAIN/DISk READ THE 
DIRECTORY CORRECTLY AND tHEn TRIEO TO FInD THE OUTPUT TAPE, 
FINDOUTPUT THEN FOUND THE TAPE OF CORRECT NAME* IN USE BY 
LIBMAIN/DISK, WITH A WrItE-rING AND TRIED THE "FIB W . 
PRNTABLECU1,[15|15] WAS ZERO SO THAT N ( MC 3 1 «5 3 • C 41 f 1] WAS TESTED, 
CMC3J CONTAINS THE M C P VE R SlON NUMflER). THE CONTENTS OF THE MEMORY 
CELL TESTED COULD BE SUCH A s TO S*TlsFY T HE TEST. THUS* LIBMAIN/DISK 
THEN WROTE An OUTPUT LABfL ON THE SOURCE TAPE AND FINALLY WHEN TRYING 
TO DO THE NEXT READ, DECIDED THE TAPE WAS NOT A LIBRARY TAPE, 



St 

$1 



THIS WOU 
BY RAY 8 



$ I ********* 



ID ONLY 
ARTHQ* NA 
IF 
********* 
9 FOR TSS 
M(P1MIX*T 
DS*LlT " 
CPlMlX],t 

; 

9170! 

CH PROVIO 

MEM" MES 

ALTERED 
TION ONLY 
EDY 12F 

BY OR* U 
XECUTED A 

UCSC DCM 



S# PATCH 54 
STREA 

BEGIN 

REPLY 

J ♦ 1 
VOIOT 187 
THIS PAT 
"NO SDRT 
HAS BEEN 
"INFORMA 
G.R.KENN 
MODIFIED 
CAN BE E 
SEE ALSO 
********* 

patch 55 

IF AN Ex 
TIMER OC 
COMMUNIC 
THE LO Q Q 

runners 

LOGGING 

handled. 

BY RAY 8 

* set omit 

ST 

S POP OMIT 

$1********* 

$# PATCH 560 FOR 
$1 BROCK U, PATC 
DEFINE PAGESIZE 



CCUR IF THE SOURCE TAPE HAD 
TAL U, PATCH 548* MARCH 29* 

T3. C 15 1151/0 THEN % DONT US 
**************************** 
MCP.XVI.O CONTAINS 5 CARDS. 
♦R5xR6*A*I*SPACE(7))J 
."J SULOc P1MIX; XSPOUT " 
CF3 ♦ 3) 



A NON-ZERO PRN, 

1976 

E NONEXISTENT FIB 

******************* 

AUTO "OU" FOR "NO 



***** 
SORT 



NOT "#". XGRK-549 



ES AN automat 

SAGE. IN ADD 
TO "." FROM " 

Instead of 

EB75. BROCK 
CSC, TO OElET 
S A RESULT OF 
CP PATCH 713* 



37027500 

MEM" 

18790600 

18790700 

18791200 

18791300 

18791400 



ICALLY 
ITION* 
#"* TO 

A "REQ 
U, PA 

E FROM 
BROCK 
NATAL 



**************************** 



XVI. 9 C 

UPT E.G 
E0USLY 

EXTERN 
OR THE 

STARTE 
ESTARTE 
SCOVERE 
U. PATC 

GING) 
I 



assumed response of "ou" to the 
the prefix of the message 
Identify this m f ssage as 
uest for operator intervention". 

TCH 5^9 
THE SOURCE* THE CODE THAT NEVER 
U. PATCH 549. JAN. 17* 1977 
U. PATCH 713* DREXEL U, PATCH 751 
********************************* 
ONTAINS 3 CARDS. RESTART LOG AFTER INTERRUPT 
. IOBUSY* IOCOMPlETE, PRINTERF INISH, 
WITH A PROCESSOR DEPENDENT INTERRUPT E.G. 
AL INTERRUPT WILL BE HANDLED FIRST AND 
JOB. IF THERE ARE NO INDEPENDENT 
D AND THERE IS NOTHl N G I N THE BED* THE 
D FOR THE JOB WHEN ITS INTERRUPT IS 
D WHEN USING THE TIME<2) FUNCTION. 
H 550* APRIL 21* 1976 



FOR TSSMCP. 
TERNAL INTERR 
CURS SlMULTAN 
ATE* THEN THE 
ING STOPPED F 
WAITING TO BF 
WILL NOT BE R 
THIS WaS DI 

artho* NATAL 
« notcnewlog 
artl0gcp1mix) 

******************************************************** 



48100499 
48100500 
48100501 



***** 



$ i ******* 
S# PATCH 
CORREC 
A NO U 
DREXEL 
MODIFI 
SEE AL 
DREX 



*! 
$1 
$1 
S| 
$1 
$1 



S VOIOT 
S | ******* 
S# PATCH 
THIS P 
SEEMS 
ITS HA 
DREXEL 
MODIFI 
UCSC* 



Si 
si 
*! 
Si 
SI 
SI 



******* 

601 FOR 
T ClOSI 
SER DIS 

U. PAT 
ED FOR 
SO OFFI 
EL U. P 

end; 

******* 

602 FOR 
ATCH WI 

TO THIN 
PPENED 

U. PAT 
ED FOR 
BY DR U 
IF INCW 



TSSMCP 

H 560* N 

■ 450#i 

150 

050 

100 

******** 

TSSMCP 
NG ACTIO 
K OSJ FI 
CH 601 
TSSMCP B 
CIAL PAT 
ATCH 66? 



CONTAINS 4 CARDS. SMALLER PBD ROW SIZES 
ATAL U. PATCH 732 

X PACKET PAGE PBD SIZE 

# % SEGMENTS PER ROW 

# % PHYSICAL RECORDS PER ROW 
0#X PHYSICAL RECORDS PER FILE 



******************************************* 

CONTAINS 2 CARDS. FIX PBD NO DISK DS 
N FOR P8D/PU0 FILES IN BACKCLOSE AFTER 
LE WOULD GET STUCK IN USE, 

8/10/75 
Y DR* UCSC FEB. 4* 1977 
CH 155 TO DCMCP OR 148 TO TSSMCP* AND 



***** 



02113091 
08699150 
08699350 
08699500 

00000100 
00000200 
00000300 
00000400 
00000500 
00000600 
00000700 
3860U00 
38621500 



******************************************************** 
TSSMCP CONTAINS 4 CARDS, BAD InCW 

ll "sd" a job that gets interrupted and "analysis" 
k its Incw is in low core* like mco], 
a few times* killing memory cell zero. 

CH 602 10/5/75 

TSSMCP & TO NOTIFY US IF THIS CONDITION EVER ARISES AT 

CSC FEB. 14* 1977 

.CCFK01777 THrN % SOMETHING VERY WRONG 14015200 



BEGIN JARCPiMlX#63ttlll3«-l* % SO BIT 14015210 

FILEMESSC-"SEF TSS'V" PATCH "*0'0*0#0*602)XKLUGE MSG&0S14015220 

END; 14015240 

$!********+****************#******************************************** 

$#PATCH NUMBER ft03 FOR TSSMCP CONTAINS 19 CARDS* FIX COPY 11011072 

FORM ■ 77#fX SWITCH D(PCC )"FQRM"-"SPECI AL" 20240000 

URANDOM, 20392890 

SWITCH DEFORM* 20394000 

LRANDOM, 20394090 

LNO,lDISK#LTaPE#lPUNCH,LPRINT#LPAPER, 20394900 

tpno*i2; go to dskcheck; % m disk" means disk serial 20457000 

begin tpn0*21i if type*copyn then begin 20461300 

tpn0«-22> go lcopy end else 20461310 

IF ScANXBACK THEN Go ERROR; 20461320 

END; 20461330 

IF TYPE*CoPYN THEN BEGIN TPN0*22; Go LCOPY END ELSE 20461810 

BEGIN TPN0*4j IF TYPE*COPYN THEN BEGIN 20^70000 

TPN0*15; GO TO LCOPY END ELSE 20470100 

IF SGAN'BACK THEN Go ERROR; 20470110 

END; 20470120 

IF TYPE.COPYN THEn BEGIN TPN0*16J GO LCOPY END ElSE 20475100 

LRANOOMI TPN0*10; GO TO DSKCHECK; 20481900 

"FORM "# 77* % SWITCH D(PCC) 41485600 

"RANDOM "# 78 * 41485610 



$ 



this patch corrects the inability to specify copies without 
also specifying 8 ack up disk on the file card* 
modified 12/2/73 - specifying "disk" on a file card now makes 
it aserial file. e X i q algol pile tape«a/b disk 

MODIFIED 12/21/75 - SPECIFY "RANDOM" To GET RAnDqM DIS«. 
MODIFIED 12/21/75 TO MAKF OtHER PATCHES FIT BETTER. 
FROM DREXEL UNIVERSITY - JHh - 5/21/76 
THIS PATCH Is AFFECTED BY PATCH 724 
********************************************************************** 
PATCH 604 FOR TSSMCP CONTAINS 1 CARD, DISK ADDRESS ERROR 00000100 

THIS PATCH CORRECTS FOR AN UNDETECTED DISK ADDRESS ERROR AT H/L. 00000200 
DREXEL U. PATCH 604 3/20/76 00000300 

IF (RA-RL) GEQ RADO THEN RLEN la ELSE 40060060 

$1********************************************************************** 

S# PATCH 639 FOR TSSMCP CONTAINS 2 CARDS. EOF PsEUDO-RDRS OOOOOlOO 

THIS PATCH CORRECTS AN EARLY EOF ON PSEUdO-Rd r S WHERE THE UST cARD 00000200 
IN A DECK (USUALLY AN "END" CARD) WOULD NOT GET LISTED IN THE PACKET, 00000300 

(FTrn •■ j . - j <■ .. •» n .i/ni. i miarDFi uniie n p » n mi htcu e p #» team AiuCrn nnftnn * nn 



MODIFIED 8/18/74 TO AVOID A SUPERFLUOUS READ ON OlSK SEG ZERO CAUSED 00000*00 

BY THE ABOVE PATCH, 00000500 

DREXEL U, PATCH 639» ORIGINALLY 8/8/73 00000600 

IF CAl«Nt«*p(DUP)+l) > (HC73+1) THEN 07397000 

IF I>0 THEN % NEXT BUFF EXISTS 07401900 
$ { ****************** ****************************************************99999999 
$# PATCH 643 FOR TSSMCP CONTAINS 12 CARDS, Fix PLACEFINDER 

IF (NTl*JAR[PlMIX#l03)«0 THEN Q° SANDA; X NO LlNE DlCT 04709900 

DISKWAIT(-T#30,NT1); 04710000 

IF CAA*BtO]tCFF])«0 OR S>Btl] OR A>1023 THEN 047H000 

NT1*JARCP1MIX>83; NT2*AA+S DIV 3Q; 04722000 

IF (NT3*-NT2 Dlv NT1 ♦ 10} > 29 THEN GO TO SANDA; 04723000 

IF (NT3*JARCP1MIX»NT3))*0 THEN GO TO SaNDA; 04724000 

I«-NT3 + NT2 MOD NTi; 0ISKWAITC-T»30# I)J 04725000 

IF (J*8tS MOD 30]) < THEN GO TO SANDA; 04726000 



AAO.tcn; if jam ■ o then j,cfm*i; 04727000 

VOIOT 04730000 

IF W#(W*5 DIV 30JTHEN DISKWAIT (-T, 30* ( JAR[ P1MIX, C NTK-AA + W )04731000 
OIV (NT2*JARrPlMIX*83)*103+NTl MOD NT2) DIV 1 ); 04731J00 
THIS PATCH CORRECTS a PROBLEM OF INCORRECT DISK ADDRESSES 
IN MCP PROCEDURE PLAcEFInDER. 

MOOIFIEO 11/25/73 - STOP POSSIBLE CONTROL-STATE LOOP IF BINARY 
SEARCH BOTTOMS OUT. 

MOOIFIEO 3/10/74 - CHECK THaT THE SEGMENT EXISTS IN THE PROGRAM, 
AND THE ADDRESS IS LEO 1023. IF NOT* JUST GIVE SEG AND ADDR. 
ALSO, ELIMINATE USELESS READ ON DISK SEG ZERO IF NO L*NE DlCT. 
DREXEL U. PATCH 643 

MODIFIED FOR TSSMCP BY DR» UCSC JAN# 18* 1977 
SEE ALSO UCSC PATCH 515 

SEE ALSO DRExEL u» PATCHES ?09, 785, 789, AND BROCK u» PATCH 528 
********************************************************************** 
$# PATCH 644 FOR TSSMCP CONTAINS 2 CARDS* <MIX>TI 
Sl FIX BUG 

SI DREXEL U. PATCH 644 9/23/73 
Si MODIFIED FOR TSSMCP B* DR* UCSC FEB. 10' 1977 

T «■ ((CLOCK + PCRTR)) DIV 60).[31«17] - 08533000 

IF T<0 THEN T * T ♦ ?400000; 08533150 

********************************************************************** 
S# PATCH 645 FOR TSSMCP CONTAINS 1 CARD, FIX DlSKlO OOOOOlOO 

00000200 

GHT 00000300 

00000400 

OPEXFL U. PATCH 645 12/2/73 00000500 

CORE|«COREJ SlZEt»SIZE; DISK|«DISKi % INTEGERIZE 06004100 

**********************************************************************99999999 

S# PATCH 647 FOR TSSMCP CONTAINS 2 CARDS. * FqR SPOUT 

S 

s 
s 
s 



********************************************************** 
PATCH 645 FOR TSSMCP CONTAINS 1 CARD, FIX DlSKlO 
THIS PATCH TnTEGERIZeS THE ARGUMENTS TO DlSKlO TO INSURE 
THAT THE VALUES ARE INTERPRETED CORRECTLY. BAD THINGS MI< 
HAPPEN IF A REAL (NORMALIZED) NUMBER IS PASSED TO DlSKlO. 
norvrl n. pat/*u aas u/3/ti 



PATCH 647 FOR TSSMCP CONTAINS 2 CARDS. * FQ« SPOUT 
THIS PATCH PREVENTS PROBLEMS WlTH DATA PASSED TO SPOUT WITHOUT , 
GROUP MARK ( «• > . SYMPTOMS USUALLY INCLUDE A BOMBED MEMORY LINK. 
A •»♦" IS PLACED IN THE LAST CHARACTER OF THE MESSAGE. 



A »*" IS PLACED IN THE LAST CHARACTER OF THE MESSAGE 
DREXEL U. PATCH 647 2/2/74 

STREAMCX*cCMCMlSSAGE-n,CCF3M) & 7 tCTF]))J 02H2100 

DS * LIT "* M J 02H2110 

********************************************************************** 

S# PATCH 654 FOR TSSMCP CONTAINS 4 CARDS. FIX LDCNTRL OOOOOlOO 

SI THIS PATCH VoIDS SOME CODE FROM C0M23 2/25/74 00000200 

Si IF LDCNTRL WAS STARTED FROM A PSEUDQ DECK AND DS ON A NO FILE 00000300 

Si THE SYSTEM WOULD LOSE WHICH PSEUDO-ROR THE JOB HAD STARTED FROM 00000400 

SI WHEN LDCNTRL ENDED THE ACTIVITY COUNT FOR THE PSEUDO-ROR 00000500 

S« WOULD NOT BE COUNTED DOWN THUS LEAVING THE DECK STUCK FOREVER 00000600 

St COR UNTIL H/l WHICH EVER COMES FIRST) 00000700 

Si 7/3/74 CORRECTS A PROBLEM WITH LDCNTRL ENDING If THE CARD READER 00000800 

Si GOES NOT READY AFTER READING A CONTINUE CARD 00000900 

SI DREXEL U, PATCH 654 00001000 

IF FIRST AND CDONLY AND NOT CONTINUE THEN 07059U0 

GO EXIT ELSE 07059U2 

S VQIDT 07071912 07071899 

S VoiDT 07072902 07072899 
$t ************************************************************** ********99999999 
S# PATCH 675 FOR TSSMCP CONTAINS 5 CARDS. PRNPBT ES-ED 
Si THIS PATCH FIXES THE WAY TERMINATE HANDLES AN ES-ED PRNPBT/DISK, 
SI THE CODE WAS ALL WRONG SINCE XV. 2 REWROTE PRnPBT, 
St NOW THE UNITS (PRINTER* PUNCH* TAPE) SHOULD BE CLEARED PROPERLY. 



St DREXEL U. PATCH 675 6/15/74 i 

$1 SEE DREXEL U. PATCHES 75o* «26 

BEGIN 02261250 

IF (LUN*Li[«H5J)<16 THEN SLAPITOFF; 02261300 | 

LUN*L.[fl6l2]*i9; % LPA* LPB, OR CPA 02261350 

slapitoff; 02261400 

$ VoiDT 02261701 0226U50 ( 

Si********************************************************************** 

S# PATCH 688 FOR TSSMCP CONTAINS 2 CARDS. FALSE CONTROLCARD ERRORS 

CCCOMPlLE*Oi X INITIALIZE 20584390 i 

CCUNIT*OJ X INITIALIZE 20590030 

*l THIS PATCH WILL CORRECT A PROBLEM WITH INCORRECT CONTROL CARD ERRORS 
Si DREXEL U. PATCH 688 4/27/75 

H MODIFIED FOR TSSMCP BY DR> UCSC FEB. 7* 1977 
St********************************************************************** 

S# PATCH 697 FOR TSSMCP CONTAINS 2 CARDS. 10 ERR STATUS 

Si THIS PATCH CORRECTS A PROBLEM WHERE STATUS CO^D GET AN UNEXP 10 ERR 

St WHILE PLAYING WITH A TAPE DRIVE. IT SHOULD RECOVER OK NOW. 

S* DREXEL U, PATCH 697 1/25/76 

00 UNTIL £T1*WAITI0(AREA INX *340000012#P75#U> 3*01 22112000 

IF Tl,C«3»23*0 THEN Tl *WA ITI0(P4200000000# 5#U ) I 22112100 

St********************************************************************** 

S*PATCH NUMBER 708 FOR TSSMCP, XIII CONTAINS 3 CARDS PRINT PRN WITH PG 

IF TEST THFN BEGIN STREAmC B*T*BUFF ) J 08051000 

BEGIN DS*10 LIT"PG-EDCPRN»"; SI*LOC Bi DS*5 DEO DS*2 LIT")*"; O8O5IOO4 
ENDJ END % PRINT PRN WITH PLAIN pGMT 08051005 

Si FROM DREXEL U« 

St SEE ALSO BROCK U, PATCH 543 FOR TSSMCP; PATCH 708 REQUIRES LESS CODE 
Si********************************************************************** 

S# PATCH 715 pOR TSSMCP. XV # 3 CONTAINS 1 CARD, MT IQ "ERRORS" TO "RETRIES" 
S| CHANGE "ERRORS" TO "RETRIES- IN MAG TAPE 10 MESSAGE, BECAUSE USERS 
*! GET WORRIED BY Io ERRORS. (AS THEY RlGHTFULL Y SHOULD* DR'UCSC) 
St NATAt U. PATCH 715) SPELLING BY DR, uCSC 

tl2|30tl83»"RETRIES"»FPBtFN]#FPBtFN+l]*J»0/0); 3 7285320 
$t ********************************************************************** 

S# PATCH 717 FOR TSSMCP, XV. 3 CONTAINS 13 CARDS. BACKUP TAPES NOT AUTOPRINT 
4| TO M A KE PRINTER BACKUP T A PES IGNORED BY THE A UTOpRlNT MECH A NISM. 
St MODIFIED FOR MARK XV. 2 By RAY BARTHO AUG, I, 1974 
St MOOlFlED FOR MARK XV. 3 BY RAY BARTHO NOV, 1* 1974 
St MONASH PATCH 556, NATAL U. PATCH 717 

LABEL FOUND'FIREITUP'QUITJ 08255800 

ENO ELSE % QJO, PB MT 08259800 

BEGIN RRRMECH*TWO(U*ABS(Q)) OR RRRMECH; 08259810 

LABELTABLECU3 «■ 08259820 

PBT*TlNUtV]t6l 301 18]&?21[ 1143153; 082598 30 

MULTITABLECV3 ♦ PBT; 08259840 

LABELTaBLECV] * PBT&TINUCU3C6I30U834 08259850 

P2ltil43l5]j 08259860 

GO FIRplTUPl 08259870 

END 08259880 

S VOIDT 08266501 08260899 

S VOIDT 38639i0i 38639000 

IF J THEN SETNOTINuSE(U'O) ELSE L ABELT ABLE[U ] , [ I I5]*i; 38640000 

SI********************************************************************** 

S#PATCH NUMBER 724 FOR TSSMCP CONTAINS 13 CARDS, FULL PAGE 

IF RDCTABLECUJ OR MuLT!TABLECU3»"FULL p GE" 04391550 

THEN IF I0QUFCSJ.t2a»l3 THEN lOQUEtS] *CFF3**«OOi3 XDBL-CH n 04391560 



ELSE IOQU 

ELSE % SK 

RDCTARLErvi.U7»l] 

FORM 

LINES66 

LLINES66, 

LLINES66, 

llines66j x 

eonco] ♦ "Full 

)RM "# 
:NES66 W * 



ECS],[FF3*M0012 X D8L SINGLE 
IP TO CHAN 1 ON EOP IF NOT 66 LINES 
«-INRECC03*"FULLPGE"J % LINES66 OPTION 

* 76#, X SWITCH D(PCC)"FORM w ««SPEClAL" 
* 77f, % 66 LINES PER PAGE 

X 



SKIP TO CH 10 



"FOI 
"LII 



pge n ; 

76 * 

77 > 

XIV 



XSET UP MFID FOR FULL PAGE 



04391570 
04391560 
12860100 
20240000 
20240020 
20392880 
20394080 
20465050 
20<»65100 
41485600 
41485620 



REV 12/9/72 MARK 

THIS PATCH WILL CAUSE THE CHANNEL 12 PUNCH ON THE VERTICAL 

FORMAT TAPE TO BE OVERLOOKED 

THE PRINTER IS CLEARED BY DOING A SKIP OF A SINGLE OR DOUBLE 

SPACE OR IS NOT CLEARED AT ALL DEPENDING ON THE ORIGINAL 
CONTROL INFORMATION 

THIS WAS TESTED ON MOD III IDS WITH fl'242-4 PRINTERS 
THE DOCUMENTATION SAyS THIS SHOULD NOT WORK I»E. 

YOU ARE SUPPOSED To CLEAR THE PRINTER WITH A SKIP TO CHANNEL 
THIS MIGHT BE THE CASE WITH DIFFERENT PRINTERS ANO/OR IOS 
THIS VERSION WILL WRk ON ANY CARRIAGE TAPE ELIMINATING THE NEED 
FOR SPECIAL PUNCHES ON CHANNELS 10 I 11 



MODIFIED JULY 1973 - MaRK XV.l 
MODIFIED 02/10/74 - MARK XV. 2 
MODIFIED 12/21/75 TO MAKE OTHER 
FROM DREXEL UNIVERSITY - JHH - 5 
NONE OF THE ABOVE STyFF IS TRUE 
THE PROBLEM IS THAT WHEN THE B-3 
THE END OF PAGE STATUS BIT ON UN 
THIS PUTS MCP INTO A TIGHT LOOP. 
SPECIAL FORMAT TAPE WHICH Has CH 

after channel 12* and channel 10 
this patch affects patch 403 

********************************* 

PATCH NUMBER 725 

DI» 

IF NOT 

IF T,t 

STR 

L 



FOR TSSmCP.XIII 
Dl-ftJ 0S«-LIT " 

T.mn then i 

Ul]iO AND T*0 
EAM(BUFF); OS*l 
ABELTABLECUJ* P 



PATCHES WORK BETTER 

/21/76 

ANYMORE - IT WONT WORK WITH B*32lS 

21 HITS CHANNEL 12 PUNCH IT KEEPS 

TIL A SKIP TO SOMETHING IS GIVEN 

S0# WE GO BACK TO USING A 
ANNEL 11 PUNCHED A DOUBLE SPACE 
PUNCHED A SINGLE SPACE AFTER 

************************************* 

CONTAINS 5 CARDS DONT ALLOW PRn«0 
+ M ; 08029046 

F T»0 THEN 08033980 

then begin 08033992 

7 lit "not pg-edcprn*0)«."j 08033993 
14; go exit end; t*absct); 08033994 



I THIS PATCH WILL P 

t HAS A PHYSICAL RE 

I HE ENTERS A NUMBE 

I IF FOR SOME REASO 

I FROM OREXEL U. 

I****************** 

# patch 745 for tss 
this corrects the 

REEL BEFORE ENDIn 

final reel of the 
value of reel for 
Reel, this meant 

WERE NOT CONSECUT 



ROHIBIT THE OPERATOR FROM PURGING A TAPE THAT 
EL NUMBER OF ZERO WITH THE PG MESSAGE UNLESS 
R* SUCH AS "PGMTB-122'\ HE MAY ENTER "PGMTC-O" 
N A PRN IS NOT APPLICABLE 

**************************************************** 



MCP CONTAINS 3 
PROBLEM WHERE A 

Gi a subsequent job 
above job, but when 
the current job was 
that when printing* 

ive thus interfering 



CARDS. PBT REEL NUMBERING 
JOB USING PBT USED MORE THAN ONE 
REQUIRING PBT CONTINUED ON THE 
A REEL CHANGE OCCURRED* THE 
PUT IN THE LABEL OF THE NEW 
THE REEL NgMBERS IN THE LABELS 
WITH AUTOMATIC REEL SWITCHING. 



$1 THE REEL NUMRER OF THE FIRST TAPE IS NOW PLACED IN THE RDCTABLE* AND 

$1 ASSIGNED TO NEW JOBS USING THE SAME pBT FROM THE RDCTABLE. THIS 

it CONFLICTS WITH THE DOCUMENTATION IN THAT THE DEFAULT REEL NUMBER FOR 

Si PpT"S NEED NOT NECESSARILY BE ZERO. 

Si NATAL U. PATCH 745 

St MODIFIED FOR TSSMCP BY OR* UCSC JAN. 17 * 1977 

RDCTABLErU]«-PCDUP,L0D)»REELCl4»38U0] 37046177 

&CDATEC24!3lti7ncYCLEC4lUU7]J 37046178 
REEl«-RDCTAB l E[U].C14H03; J! GET ACTUAL REEl NUMBER 38247100 

$# PATCH 749 FOR TSSMCP CONTAINS 1 CARD. MEMORY PARITY ERR CAUSES W SD" 

St THIS PATCH WILL CAUSE THF MCP TO HOLD ON TO A PSEUDO-DECK OF A JOB 

Si WHICH HAS BEEN DS-ED DUE TO A MEMORY PARITY, AFTER ALL* THAT WASN»T 

SI HIS FAULT. 

St MODIFIED 6/15/74 - SD BIT SET IN TERMlNALMESSAGA INSTEAD OF 

$1 IN OUTER BLOCK. 

Si DREXEL Ut PATCH 749 (BROCK U. PATCH 749 IS THE UNMODIFIED VERSION) 

IF N«32 THEN jARfplMlX»6],Cllll*lJ % MEM pAR 02206100 

$!****#*#******#***+* *************************************************** 
S# P A TCH 753 FOR TSSMcP.XV.3 CONTAINS 2 CARDS. TIMeC-6) TO GET MIX INDEX 
Si THIS ADDS A NEW ylME FuNCTlON. tIMEC-6) WILL RETURN THE MIX INDEX OF 

si the calling program as an integer, 
St natal u. patch 753 

WDI I4*WEEKDAY; GO TO INITIATE) 187H500 

IF 14 ■ (-6) THEN I4«-plMIX) 18711690 

$1********************************************************************** 

$# patch 757 fo r tssmcp.xvi.b contains 12 cards, remove unload files at end 
it this patch causes thf files specified to be unloaded to be removed 

S| ONLY AFTER THEY HAVE A LL BEEN DUMPED. ALSO IF A DISK PaRITY OCCURS 

Si WHILE DUMPING THEN THAT FlLE WILL NOT BE REMOVED. 

SI NATAL U. PATCH 757 

MCFAINF0*J]»C8'1]I*0; % DONT REMOVE IF UNLOAD 28093900 

P(M[FA+i3#M[FA])) % SAVF NAME FOR UNLOAD 28094500 

NT1»*PJ M[FA3l* N Ti; M[Fa+1]I»P<XCH)J % REPLACE N AMES 28097100 

$ VQIDT 28265801 28265600 

TMPtsFASZ DIV 2*1; 28307700 

FOR Jl*0 STE p 1 UNTIL TMP nO 28307705 

IF CDAt»MtFAINF0+J]),CcF]»l8 THEN X FROM DISK 28307710 

IF UNLOAD THEN 28307715 

BEGIN MFlDl«M[FA+Jx2j; FlDl*M[FA+l+Jx2] J 28307720 

P(DlRECT0RYSEARCH(»MFID»U3l47tn#FlD*7)*DEl)) 28307725 

IF DSED THfN GO To INITIATE) 28307730 

END) 28307735 

S | ********************************************************************** 

S# P A TCH 764 FOR tssmcp contains 3 CARDS, tapes in USE aETER fm or il oooooioo 
Si THIS PAtCH PREVENTS t a PE UNI tS FROM BEING MARKED AS IN USE. THIS 00000200 
Si OCCURS AFTER An ML" TO A TAPE UNIT IN RESPONSE TO A M #N0 Fil ON 00000300 
Si DISK" OR AN "FM" TO A TAPE UNIT CONTAINING A TAPE WITH NO WRITE RING 00000400 
Si IN RESPONSE TO A m #Fm RQD"« THE TAPE WILL REMAIN IN USE UNTIL A H/L 00000500 
SI OR THE UNIT IS CLEARED BY A "Cl". 00000600 

SI HERIOT-WATT U. PATCH 764 00000700 

$1 MODIFIED FOR TSSMCP BY Dr# UCSC FEB. 3, 1977 

END ELSE LABELTABLF£T2Jt»-<*P(DUP))) 06^63740 

IF PRNTABLEtUJ.UU] THEN ELSE 37053300 

BFGIN LABELTABLE[u3»»-<*PfDijP)))G0 TO SOMEWHEREJENO; 37053400 
$f********************************************************************** 
$# PATCH 791 FOR TSSMCP CONTAINS 4 CARDS. TYPE PBCOUNT AT HALT-LOAD 



$l PATCH T(] TELL THE 
$1 REGARDLESS OF THE 
Si THE FIRST & THIRD 
$1 AND VOIDS SOME UNU 
$! BY NILS OTTE* UNIV 
$1 HERIOT-WATT Ut PAT 
St MODIFIED FOR TSSMC 
REAL NEXTLINK* AD* X 
IF PBCO 

end; SP 



OPERATOR HOW MANY BACK 
SETTING OF "AUTOPRNT", 
CARDS REMOVE THE DECLA 
SED CODE REFERENCING " 
ERSITY OF NATAL. SEPT 
CH 791 

P BY DR, UCSC FEB. 8 
* K# SEVEN7* FORTY* EU 

unt > o then % te 

OUTCX); 



•UP FILES THERE ARE ON DISK/ 00000200 

00000300 
AL "L" 
MESSAGE. 

00000600 
00000700 



RATION FOR THE UNUSED LOC 
L" TO SPOUT THE "PBCOUNT M 
,» 1976 



, 1977 

su; 

LL OPERATOR 



$ VOIDT 
$1********* 



*************************** 



40004500 
40320100 
40320600 
40338000 



s# patch boi for tssmcp contains 

REAL BUFF, KTR, TYPE, MI X , A, 
LABEL RESTARTS 
RESTART! 

TYPE ♦ KEYINSCANCKTR,MIX); 
IF <PR0CED*TYPE.C115J )*1 AND ( 
OR 1*33 OR I«34 > OR (PROCED 
BEGIN 

stream(ktrm«)j 
begin si*ktr; 

8(60(if sc-""" then 

BEGIN L< Sl*SI+i; 
63(SI*SI + D 

SI*SI+1 j 

if sc» hm " th 
end; 

IF SC» W «-" THEN JyMP 

if so**;" then 

BEGIN 

I*Slj TaLLY«-1 
01*1 1 DS*LIT 

xi si*Si+i; if sc 

JUMP OUT 2 TO 

end; si*si*i>)J 

Y E CH« KTR^TALLY; 



39 CA 
I, J, 



CI*TY 
■ AN 



***** 
RDS, 
K, T 



***************************** 



MULTl KEYIN MESSAGES 



PE.tC 

D I»i 



F3)»8 OR I«VCC 

) THEN ELSE X SS,CC,OC,FE< 



IF SC 
IF SC 

EN GO 

OUT 



■ "*" 

TO L 
2 TO 



THEN JUMP OUT; 

THEN JUMP OUT 3 TO YECH); 

; 
yech; 



; 

*♦♦."; 

YECH; 



end stream; 
up; if p t 
streamci* t 

BEGIN 

si*i; 

8(60( 

end stream; 

END CHECK F 
IF PRQCED«7 
IF T>0 THEN 
BEGIN 

BUFF* 
GO RE 

end; 
ii orexel u. p 

St THIS PATCH 
St SEPARATED B 

st mxjts;blkc 

St NOTE! NO KE 



HEN 
*T*GET.SPAcEC62#0»0) + 3); 

if sc*"* M then Jump out 

or keyin recycle; 
then go to tblerr; 
x another message 

t; t*o; 
start; 



ATCH 801 9/23 
WILL ALLOW MORE THA 
Y SEMICOLONS, AS SU 

REMOVE A/B 
YIN COMMANDS mAY BE 



/73 

N ONE 
CHI 



16951600 
16951950 
16954450 
16954502 
16954504 
»AX 169545Q6 
16954508 
16954510 
16954512 
16954514 
16954516 
16954518 
16954520 
16954522 
16954524 
16954526 
16954528 
16954530 
16954532 
16954534 
16954536 
16954538 
16954540 
16954542 
16954544 

16954546 
16954548 
16954550 
16954552 
16954554 
2 TO L ELSE OS*CHR)); L tOS*LlT"* M ; 16954556 

16954558 
16954560 
16954600 
16969710 
16969720 
16969730 
16969740 
16969750 

COMMAND IN EACH KEYBOARD MESSAGE 



then go to x; i*si; 



CONTINUED AFTER A CONTROL CARD IS 



FOUND, 

modified u/lo/73 - coined messages ignored for fe* oc» ax, 

modified 9/8/74 

this patch inhibits the running of keyin procedure "keyin2" if the bed 

is getting full. 

if the operator (or a remote user) keys in a message causing 

independent runner keyin? to Run* and the bed is within 4 entries of 

full* a "walt.t.ckeyin message)" will be spouted. (not needed in tssmcp) 

modified 10/5/75 - fix Problem where if input message is longer than 

480 characters* a «• would be put in the first character of the 

NEXT MEMORY LINK* LEaDING TO GRAVE PROBLEMS. 

also* Successive semicolons are ignored, 
modified for tssmcp gy dr* ucsc feb. 7* 1977 

PATCH 815 FOR TSSMCP CONTAINS 17 CARDS. CLEAR In USE FILE 
DREXEL U, PATCH 815 2/}0/74 

THIS PATCH WILL ENABLE THE OPERATOR TO CLEAR AN IN-USE FILE BY 
DOING A M Q RESET FILE A/B M « IT SHOULD BE USED CAUTIOUSLY SINCE 
DIRE CONSEQUENCES COuLD RESULT FROM "CLOsING" A T^ULY "IN-USE" 
FILE. IT IS USEFUL FOR THOSE STUCK IN USE PBD FILES ANo SUCH. 
MODIFIED 10/27/75 - REPEAT mCP FILE IN USE MESSAGE ABOUT EVERY 2 MlN, 
MODIFIED FOR MARK XVI BY DR, UCSC FEB. 11* 1977 
SEE ALSO UCSC PATCH 519 

WHILE NOT TOG nO 18O3HO0 

COMPLEXSLEEPUCLOCK AND M7777)«0 OR TOG); 18032000 

SLEEP(CCL0CK3,N0t CLOCK); 18032010 

BOOLEAN FTaN; DEFINE FHfFHl )*M [T+FH1 3 *) X RESET FILE A/B 20704100 

subroutine clearthefile; % clear an in-use file 20704200 

BEGin 20704210 

FHC*3.[OH06]*0; X EXCLUSIVE 20704220 

FHC43,tl6l?0]«.o; X OPEN COUNT 2 20704230 

FHt9] t C0H28j«-Q; X ToSS & OPEN COUNT 1 20704240 

DISKWAIT(T.CCF]*30*T.[FF3); % FIX IT 20704250 

FlLEHOLO(CMMC23*CMMt33*0*T*0); % WAKE UP WAITING PROCESSES 20704260 

LBMESSCCMM[23*CMMC 33* U*26*0* SPOUTUNIT*!)* 20704270 

END CLEARTHEFILE' 20704280 

IF CN/ACCESSD THEN 20714000 

IF NOT (FT*FXTnG»(CN«FlLEV)) THEN GO TO CCERR* 20714500 

* VOIDT 20768000 

END ELSE IF FT THEN CLEARTHEFlLE ELSE BEGIN 20769000 

S#PATCH NUMBER 846 FOR TSSMCP CONTAINS 7 CARDS, DUMMY FILE 

IF lOD.C3t53«30 THEN GO RETURN; X SPO 04105998 

FORM * 75#*X SWITCH DC PCC )"FORM*-"SPECI AL" 20240000 

LDUMMY* 20392870 

LDUMMY* 20394070 

LOUMMYt T p NO*li; X •♦ FORM SPO" - DUMMY FILE 20451900 

"FORM % 75 , X SWITCH DCPCC) 41485600 

"DUMMY "» 76 , 41485630 

t 

» THIS IS THE MCP PORTTON OF THE DUMMY FILE PATCH. IT ALSO REQUIRES A 
I PATCH TO THE INTRINSTCS. IT PROVIDES THE WORD "DUMMY" AS A UNIT 
I TYPE, OUTPUT TO "DUMMY" WILL CREATE A "SPECIAL FORM SPO FILE"* 
« WHICH THE INTRINSICS WILL IGNORE. 
I FROM DREXEL U. PaTCH 846 JHH AT UcSc 

#PATCH 890 FOR TSSMCP CONTAINS 173 CARDS - D AT AQ29/EBCD IC 



CARD 

In mark 



XV. 1. *** NB» SEQUENCE NUMBERS CHANGED *** 



«,lt ???? »f,H ???? «,H &CB? H,»f A??? »t 

i 



20,025352436, 

,, ???? W ' ,, ???? W # ,, ???? M # W ???? ,, > 

CE FOR ADDRESSES 



SlAuG 1975 HERIOT-WATT UNIVERSITY * LOCAL ONLY* 
SlAND PERFORMS EBCDIC To BCL CONVERSION 
SllMpLEMENTS DATA029 
SjWAS PATCHES 900-902 
$1 

procedure ebtable; 

BEGIN LABEL Li 

p<o,xit,.l,ded; 

L«*» 

0," 32?"* M i???%"OTS?% »/???"# "-LK?"*" J??? 
"* ???"»* f ???? ,, « "????"> "????♦', "????"# " M ????" 
"9???", M ????" ,"Z???« ,"????", H R???"»"???? ,, » 

« ????*, "????",«????«, «?<»?<?% "??7?", «????", 

"8# !?" $ w ??7?%"YiX?«, "????" ,"Q$3?" *"????% "????" »"????% "H,C?%" ????"' 
"????•', "????" #"????",• , ????", "????" * M ???? M # 

?07770675, P053704 13^067 1466 16, P65 17647 3, 

*fl757fl656,P 4555445 3, '•????"* ♦'????", 0277426 
SI XQ", "????% "????" ,*???? , V???? M > *•????"» 

xqmarkaodresses 
"????% "????", "????" ,"????% "????"* "????% 

0,0,0*0#0#0>0»0>0>0*0»0, 0,0*0,0' * SPA 

o»o,o#o, 0*0*0; 

END; 

REAL PROCEDURE SETUPEBTABLE J 
BEGIN REAL ADRJ LABEL ExIT; 
DEFINE STOREADDRESS* 
Xt«Sl) SII*LOC Yt SI»«St+5; 

ds«*3 chr; di»«di+5 #; 

ebtable; 
pccmccadrl8*p(. ebtable) inx not l)33»ior)j 

setupebtable i »adr i -adr.tcf 3*3; 

if mcadr + 8u « then 
stream (x 1=0* t able t* adr, qmarkt able address i 

BEGIN 

DII«TABLE) sii»table; sIi»si+sj 

2(40CSH»Sl+4; DSt-4 CHRJ))j 

XFIRST FILL ALL OF ADDRESSES WITH ADDRE 
SII*QMARKTABLEAODRESS; 
XI'SII 

sifn.dc x) siusnsi %point si at address 

dislocations; 

osi*3 chr; 

SI!«L0CATI0NSI 
DS««63 WDS; 

XNOW SET ADDRESSES FoR VALID CHARS INTO 
SH STABLE) 
DP-LOCATIONS; 
3(ST0READDRESS; XSTORE ADDRESSES FOR LP» 

XCORRESPONDING TO BLANK, 9 HOLE, 8 HOLE 

si»*x; 

sii«si+63; sn"Si*Di xs«ip b words down 

DI»*DHv8* XIP*3 IS INVALID 

stOreaddress; 
di l«0I+8; 

sn»x; 
si*«si*i; 



■ ADR*3 2»L0CATl0NSl=«ADR + 40); 

SS OF ?S 

OF QMARKS 

EBCDIC TABLE 
0,1,2 
TABLE 



XLP*4. 



• • • • 



7 HOLE 



%LP»5 IS INVALID 

XSKlP 1 CHAR DOWN TABLE 



07003270 
07003280 
07003290 
07003300 
,07003310 
07003312 
07003320 
07003322 
07003330 
07003332 
07003340 
07003342 
07003344 
07003350 
07003352 
07003354 
07003360 
07003370 
07003380 
07003400 
07003410 
07003412 
07003414 
07003416 
07003420 
07003430 
07003440 
07003450 
07003462 
07003464 
07003466 
07003468 
07003482 
07003484 

07003486 
07003488 
07003490 
07003492 
07003494 
07003496 
07003498 
07003500 
07003502 
07003504 
07003506 
07003508 
07003510 
07003512 
07003514 
07003516 
07003518 
07003520 



STOREADDRESS; 
DI?*DI+8i 

sn»x; 
sn«si+i; 

STOREADDRESS; 
SllaXJ 

STOREADDRESS; 
SI l*XI 

sn«si + i; 

STOREADDRESS; 
OI««DI+8> 

si«*x; 
si«»si+i; 

STOREADDRESS; 
2<0H«0I*52>; 
SI»«X) 

sxusi + u 

STOREADDRESS! 
DI»*0I*8J 
SI «»XJ 

3l*»Si*ll 

STOREADDRESS; 

END; 

END] 

X************* 

STREAM PR 
VAluE INTO, TAB 

BEGIN 

LOCAL HP*LP#SR 

XPOlNT hppt 

si »»loc hp; 
siusi+7; 

HPPTR|»SII 
SI»«LOC LP) 

si»*si+7; 
lpptri«si; 
si«»into; sx i 
di*«into; 

XSTART CHAR 
2(40( 

desti«di; 

^transfer l 
di»*hpptr; 

DS»M CHR) 

di««lpptr; 
ds»*i chr; 
srcei»si; 

XNOW FIND T 

si»«pointers; 

LP($!»»SI+8)J 
SUvSCI xs 

di»*dest; 
sii c si+HP; 



*LP S 6....748 HOLES TOGETHER 



XLP=8.,.,6 HOLE 



XLP*10....6*8 HOLES TOGETHER 
XMISS 5 WORDS. ,,LP«11M2M3'14#15 



XLP»"16.... 5 HOLE 



XLP»18.... 548 HOLES TOGETHER 
XmISS 13 WORDS. ,«,LP»l 9 "3l 



XLP-32 4 HOLE 



Xl.P«34...... 448 HOLES TOGETHER 



************************************************* 
OcEDuRE EbCD I CCONVERTC INTO, TABLE* POINTERS); 

le*pointers; 

************************************************* 

ce*dest,hpptr,lpptr; 

R 4 L PPTR T L AS T CHAR oF HP, L P 



XHIGH PART 



XLOW PART 

■si+s; 

ACTER TRANSLATE LOOP 



OW & HIGH PARTS 



XSTORE SI FOR NEXT PASS THRU LOOP 

HE POINTER INTO TABLE APPROPRIATE TO LP 



I NOW POINTS INTO TABLE 9 POINT DEPENDANT ON LP 
XSKIP SI THROUGH TABLE HP CHARS 



07003522 
07003524 

07003526 
07003528 
07003530 
07003532 
07003534 
07003536 
07003538 
07003540 
07003542 
07003544 
07003546 
07003548 
07003550 

07003552 
07003554 
07003556 

07003558 
07003560 
07003562 
07003564 
07003566 
07003568 
07003570 
07003580 
07003590 

*********07003600 
07003610 
07003615 

*********0 70 03620 
07003630 
07003640 
07003650 
07003660 
07003670 
07003680 
07003690 
07003700 
07003710 
07003720 
07003730 
07003740 
07003750 
07003760 
07003770 
07003780 
07003790 
07003800 
07003810 
07003820 
07003830 
07003840 
07003860 
07003870 
07003880 
07003890 



XPOINT TO QMRK 



ds»=chr; 

si«»srcf)); 

di»*table; oi:soi+3; 

end convert; 

boolean ebcdic; real ebtabl eadr; 

if fbcdic then 

BEGIN 

ebcdicj*false; 

M[(*P(.EBTA6LE) INX NOT 1 ) ] • C2l 1 ] l-OJ 

end; 

STREAM (X««"PaCKET5 m I Y:a ,f CONTINU w #Z» BW END. % 
EB»« M DATA029'MNBuEF); 
INBUFF"»Si; 

else begin si i «inbuff;di i *loc y; 

sh»inbuff; 

if 3 sc-dc then tall*»*7 
else begin 

DIt.LOC EBJDXI-DI*1J 

SU'INBUFF; 
IF 6 SC«DC THEN 



$VOID 

SVOID 07036351 



TALLY»«4; 



END 



end end; 



IF PTYPE ■ 4 THEN 

BEGIN PTYpEtso; EBCDIC »*TRUE; 

ebtableadrisSETupebtable; 

end; 

ELSE BEGIN WH!lECQI*WaiTiQCP40000Q00+INBUff+ 

EBcD I Cx* 40000000 1,F I RSTX4+ 

if ebcdic then ebcdlcconvertc inbuff* 

ebtableadr#ebtableadr+40) else 
strfam(qmki«12»bcl»«wbcd1c*inbuff); 

BEGTN 

sumnbuff; 

bcl c if sc* m " m then jump out to li); 

IF SC»P14 then 
LI » BEGIN SH«LOC QMK; SjlaS j + 7; 

dsisi chr; 
taliy»*i; 
siuinbuff; 

2C3ACIF Sc* w >" THEN 

begin inbuffi»si; dIi«inbuff; 

DS» 8 UT "« M 

end; 

if sc* m * m then 

begin inbuffi»si; dIimnbuff; 

dsi« lit mwh 

end; sii»si*ij)> 
end; 
qmk i«tally; 

END; 

qj^p or q; 



S VOIDT 



INBUFF «a GETSPACE (21*0*1) ♦ 2; 

streamccardloo; 
begin si*cardloc; 



07003900 
07003910 
07003920 
07003950 
07009200 
07031200 
07031300 
07031400 
07031500 
07031600 
07032000 
07032100 
07034500 
07036220 
07036250 
07036260 
07036270 
07036280 
07036290 
07036300 
07036310 
07036320 
07036330 
07036390 
07039500 
07039600 
07039700 
07039800 
07059000 
07059010 
07060100 
07060200 
07066100 
07066200 
07066300 
07066350 
07066400 
07066500 
07066550 
07066600 
07066610 
07066620 
07066630 
07066635 
07066640 
07066650 
07066660 

07066665 
07066670 

07066700 
07066800 
07066850 
07066900 
07086000 
07101000 
20374401 
20374402 



2(^6CIF Se* H >" THEN 20374403 

BEGIN caRdL0c«-SUDI*CARD10c'DS* LIT "•" ENq; 20374404 
IF SCe M i" THEN 20374405 

BEGIN CAROLOC*Si;Di«-CARDLQCJDS* LIT " hh END; 20374406 
SUSI + i;)) 20374407 

END; 20374408 

(IF KOUNT * H »" THEN EQUAL ELSE % THIS IS AS IN SYMBOL 20380000 
"DATA029". 4i , 41483010 

S# PATCH 891 FOR TSSMCP.XVI.O CONTAINS 8 CARDS, CORRECT 890 (DATA029) 
SI CORRECTS A MlSPUNCH IN PATCH 890 (900) WHERE EBTABLE WAS SET UP WRONGLY 
SI DEREK BRUCE ., MAY 1Q76 ., H.W.U, 
St 

07003230 
%## ################# ################ ###### ######################### #####0700 3251 

07003252 
«????%»????•*,"????«, "????%" ????•% "????", 07003344 

07003390 
%########## #################################################### #########0700 3391 

07003392 

INBUFF ♦ GETSPACEC 21*0,1 ) + 2; 07101000 

S#PATCH 892 FoR TSSmCP CONTAINS 2 CARDS, CORRECT 890,891 

0077706 75, P05 7704 13, $06 7 1466 16,P651764 7 3, 

INBUFF * 6ETSPACE(21,I0BUFFERAREAV,1) ♦ 2; 
SI THIS PATCH MODIFIES THE DATA029 FEATURE (PATCH 890) SO THAT 
SlSlNGLE QUOTE cOMlNG In IS CHANGED 00 06 5 
*■ BY JHH, UCSC* 11 AUG 77 

MODIFIED 19 AUG 77 Tn USE AREA TYPING INTRODUCED IN PATCH 167 

PATCH 901 FOR TSSMCP CONTAINS 1 CARD, TERMINAL LOG-IN MESSAGE ############### 
CHANGE THIS DATE EACH TIME ANY OTHER PATCHES ARE CHANGED. «■«■«■«■«■♦«■ LOOK ««<< 
BY TJP, UCSC MODIFIED RY DR> UCSC 



07003340 
07101000 



SI BY JHH, UCSC* 11 AUG 77 
SI 

s# 
Si 

St BY TJP, UCSC MODIFIED RY DR* UCSC 

DS*35LIT"-*/UCSC B5700 TSSMCP OF 24 AUG 77, «; 03595560 

$1 ******************* *************************************************** 
** D.-/.U unuBtD oao r nD .c t .,« ^ U ,ii u < * CARDS. AUTORN OPTION 

00416640 
41434800 

^deck(O); end; 44424100 



$t ***************************************** 

S# PATCH NUMBER 902 FOR TSSmCP CONTAINS 3 
AUTORN * OPTION, Ci7l 1]## 

"AUTO", "RNQQ% %17% 
IF AUTORN THEN BEGIN 'RUNUMBER**4J STARTA . 

S| 

3 CARDS DELETE THE RNALL OPTION USED WITH SHaREOISK ONLY AND 
REPLACE IT WITH T HE NEW AUTORN OPTION WHICH WILL AUTOMATICALLY 
START PSEUDO READERS WHEN THE SYSTEM IS STARTED UP 
BY J.HH MARK XVI, 



St 

SI 
St 

St 

SI 




38660000 



$t ********************************************************************** 

$# Patch number 917 for tssmcp.xvi.oo contains o7 caRds, w pbt on mtx rw/l (PRn", 

STREAM(MTy*TIMUCuNlT3,PRN*PRNTABLECUNIT3.C30U8],%5l7*GRK 12530010 

D*T«-SPACE<10)); X517-GRK 12530020 



$! 
$1 
$1 
St 

$1 
SI 
St 



THIS PA 
TO MAKE 
PRINTED 



G.R.KEN 
SEE ALSO 

*# patch nu 
s set omit 
s pop omit 

%**% 
St 

THIS PA 
1. DQNT 



BEGIN Sl«-LOC MTX; SI+SI+5; DS*8LlT"#PBT ON "J X51 71 2530030 
nS«-3CHR; DS«-7LIT" RW/L ft DS*5DECJ %5i7 12530040 
!)S*2 L IT" )«•»•; DI*DI-7* DS«-ftFlt_U %517-GRK 12530050 

end stream; %517-grk 12530060 

spoutctj; %517-grk 12530070 

tch will spout a rw/l message when a pbt is locked by c0m19 

IT EASIER Tri DETERMINE LATER WHICH TAPE WAS ACTUALLY 

« 

NEDY 21MAR/5. BROCK U. PATCH 517 

UCSC TSSMCp PATCH 940 * BROCK U. PATCH 540 
************************************************************* 



MBER 950 FOR TSSMCP. XVI ,00 CONTAINS 
XSEtUP SHORt/LONG CARRIAGE 

SPQUTITCT,CHRGK*1); XSHORT/LONG 



03 CARDS. CLEANUP CANDE STUFF, GRK. 
MESSAGE %550-GRK 05751400 

%550-GRK 05754600 
CARRIAGE MSG %550-GRK 05756500 



St 
St 
St 
St 

SI********* 
$# PATCH 99 
THiS PAT 
REDUCING 



TCH CLEANS UP SOmE OF THE CANDE-RElATED MESSAGES A BIT. 
BOTHER BUILDING/SPOUTING THE "SHORT/LONG CARRIAGE" MESSAGE, 



G.R.KENNEDY O8MAR76. BROCK U» PATCH 550 



************************************************************* 
1 FOR TSSMCP CONTAINS 9 CARDS, SCHEDULER CHANGE 

St THiS PATCH ATTEMPTS TO IMPROVE EFFjCiENCY OF TSSMCP BY 

it REDUCING UNNECESSARY SWAPPING WITHOUT HURTING TERMINAL JOBS. 

St J. THE TIME SLICE IS MaDE MUCH LONGER FOR JOBS THAT USE A LOT 

SI qF CORE. 

$l 2. BATCH JOBS WHICH USE UP THEIR TIME SLICE ARE SWAPPED OUT 

St WITH "TIMEND" AS BEFORE, BUT TERMINAL JOfiS ARE SWAPPED OUT 

$1 AT "FORCEND", GI V ING THEM PRECEDENCE OVER THE "TIMEND" JOBS. 

SI 3; BATCH JOBS WHICH ARE FORCED OUT ARE SWAPPED OUT WITH "TIMEND" 

St RATHER THAN AT "FORCEND". 

St 



NT1*(S L NCMIX]X30 + COUNT [ MIX ]xl4 • NT1)*8 + 208J 
IF PRTR0WCMIX].CPSF]»3 THEN PRTRQWtMlXJ . CPSF3*0J %UCSC KLUDGE 

TF NT3-2 THEN STQPM ELSE SWAp( 
IF LOGLINE. C33»73*0 THEN 

IF NOT SCHEDLINECLOGLINE. UOI833 THEN 
FORCESWAP ELSE TIMEND ELSE TIMEN0»1); 
BEGIN SWAPtlF LOGLINE. C S3l 7 3/0 THEN 

IF NOT SCHEDLINECLOGLINE, UOl833 THEN FORCESWAP 
ELSE TIMEND ELSE TIMEND#1)J GO TO RETURN END; 
St 
St BY J.H,, UCSC 7 APR 77) REVISED 16 APR 77 REVISED 28 APR 77 

$1 *********! 



2UU540 
21212010 
48030000 
48030010 
48030015 
48030020 
48038400 
48038405 
48038410 



*# PATCH 99 

St AUTOMATI 
St WHENEVER 
$t BY DR# U 
S VOIDT 

PA 



r***************** 

2 FQR TSSMCP CONTAINS 4 
CALLY ASSIGN A LaBEL TO 

IT GOES REAnY 
CSC FE8. In* 1977 



******************************************* 



CARDS* LABEL THE HIGH-SPEED PAPER TAPE RDR 
THE HIGH-SPEED PaPER TAPE READER PORT 



M PRA 
NR, 



"; 



■ 1 



st ********* 

*# PATCH 99 
St BY OR' U 



PERI LABELTABLECU3 ♦ MULTlT ABLECU 3 * 

RDCTABLECU3 * 01OOOOOOOOJ % REEl 

GO TO COMMONS 
************************************************************* 



22199000 
22201200 
22201400 
22201600 



3 FOR TSSMCP CONTAINS 
CSC FEB. 10* 1977 



2 CARDS* AUTO-RY Of SCHEDULE LINES AT H/L 



FOR NTUJ STEP 1 UNTIL LMAX DO 44430000 

if schedlinecnti] then schedbusycnTij * o; 44430100 

$|********************************************************************** 

$# PATCH 995 FOR TSSMCP CONTAINS 2 CARDSt DUPLICATE FORWARD REFERENCES 00000100 

*l WHERE THERE ARE 2 OR MORE FORWARD REFERENCES TO THE SAME 00000200 

Si PROCEDURE* THIS PATCH DELATES ALL BUT THE 1ST FORWARD REFERENCE, 00000300 

$« BY DR» UCSC FEB. 3, 1977 00000400 

* f LINE 00364000 * LINE 06020500 00000500 

$l LINE 00431500 * LINE 03099000 00000600 

VOIDT 03099000 




06020500 
3200 



*#PATCH NUMBER 998 FOR TSSMcP CONTAINS 2 CARDS. M IXM AX»M AXLM AX 

DEFINE MIXMAX*10#; 00004000 

DEFINE MAXLMAX-20 $1 % SHUD Be ABT 8 ♦ ACTUAL MAX LiNeS 00004500 

SI********************************************************************* 

LABEL OOOOOOOOOlINE 00178065CC Ex 0/R; COMMON*! JFlLE S.PATCHES/TSSMCP;F I LE LINE'LlNE PRInTJEND* /R 



